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Laissez-moi vous présenter 
ORIC-1 


1.1. ON OUVRE LA BOÎTE 


Ça y est. Vous vous êtes décidé, vous avez acheté un ordinateur; un 
ORIC-1. Puis, afin de mieux connaître cette petite machine, vous avez 
acheté cet ouvrage. Laissez-moi vous en remercier ! 


Tout d’abord, il faut brancher l’'ORIC-1. Vous devez trouver dans 
son emballage une alimentation 9 V continu ainsi qu’un câble portant 
une prise DIN à cinq broches, et une prise Péritel. 


alimentation 
9 volts 
continu 


câble 


L'alimentation se branche dans une prise 220 V ordinaire, et dans 
la prise la plus à droite derrière l'ORIC-1. 


Le câble se branche d’une part dans la prise RVB (RVB signifie 
Rouge-Vert-Bleu) de l’'ORIC-1 et d’autre part dans la prise Péritel de 
votre téléviseur. 


. alimentation 
prise TV 9 volts 
continu 
prise RVB 


Consultez le mode d’emploi du téléviseur. Il vous indiquera où se 
trouve la prise Péritel, et comment l’utiliser. 


Si votre téléviseur n’est pas équipé d’une telle prise, vous avez 
quatres solutions : 


— La meilleure: acheter un moniteur couleur avec une prise Péritel. Il 
s’agit d’un écran qui ne peut recevoir de programme de télévision, 
mais qui peut se brancher sur un magnétoscope, une caméra TV ou 
un ordinateur. 


— Acheter un récepteur de télévision en couleur possédant une prise 
péritel. 


— Faire équiper votre téléviseur d’une prise Péritel. 


— La moins bonne: faire équiper votre ORIC-1 d’un modulateur TV. 
Dans ce cas, l’image ne sera qu’en noir et blanc et de médiocre 
qualité. On vous fournira alors un câble qui se branchera d’un côté 
sur la prise TV de l’ORIC-1, de l’autre sur la prise antenne du télé- 
viseur. Branchez l’ORIC-1, mettez en marche le téléviseur. Sélec- 


tionnez une chaîne inutilisée (4, 5 ou 6) puis réglez l’accord du télévi- 
seur jusqu’à ce que l’image produite par l’ORIC-1 apparaisse (voir 
ci-dessous). 


Il est conseillé de brancher l’alimentation d’abord dans la prise 
220 V puis ensuite sur l’'ORIC-1, sinon ce dernier risque de ne pas 
démarrer, une mire formée de rectangles noirs et blancs persiste alors. 


L'écran doit ressembler à ceci, pour un ORIC-1 48K. 


ORIC EXTENDED BASIC V1.9 
© 1983 TANGERINE 


47879 BYTES FREE 


Ready 


Si rien n'apparaît sur l’écran, vérifiez que les prises sont bien 
enfichées, et que vous avez bien suivi les instructions du mode d’emploi 
du téléviseur. Si après cela l’écran reste désespérément vide, une visite 
chez le vendeur de votre ORIC-1 s’impose. 


1.2. LE CURSEUR 


Sur l’écran, en-dessous du mot ” Ready”, se trouve un carré noir 
clignotant. On l’appelle ”curseur”. Frappez sur la touche ”Z” du 
clavier. Une lettre Z apparaît sur l’écran et le curseur se trouve juste à sa 
droite. Il sert à indiquer l’endroit ou apparaîtra la prochaine lettre. Frap- 
pez sur le ” A”, il apparaît là ou se trouvait le curseur, qui est lui juste à 
droite du ” A”. Frappez sur le ” P”, une lettre ” P” remplace le curseur, 
qui s’est déplacé vers la droite. 


Frappez la touche RETURN”. La commande que vous venez de 
taper, ZAP, est exécutée, un son est émis, puis le mot ” Ready ” est affi- 
ché, le curseur retourne (en anglais ”return””) à gauche de l’écran. 


1.3. LE CLAVIER 


Les touches sont les mêmes et sont disposées comme celles d’un 
clavier de machine à écrire, de type QWERTY. Si l’on emploie ce nom 
un peu bizarre, c’est tout simplement parce que les premières lettres du 
clavier sont Q, W, E,R, T et Y. Les touches sont à répétition automa- 
tique: maintenez une touche enfoncée, le caractère correspondant est 


répété. 
DU ui De en) en en nn nn ne Mme ne + ny 
touche '"ESCAPE" CHEÉEEELELILTLLTL- 
touche’ CONTROL" on Qu ee mu mn mn en ne (ne JU En ue 
touche‘ SHIFT" <) on on on nn nn mu ne ue ne mu (ue 


ss = — : 
d'espacement 
(’blanc”) 


En plus des lettres, chiffres et caractères de ponctuation, l’'ORIC-1 
possède des touches marquées ESC, CTRL, SHIFT, DEL, RETURN, 
+, dl, Î et — ainsi qu’une barre d’espacement. Il ne faut pas confondre le 
chiffre @ (zéro) et la lettre O0”. 


Nous verrons plus tard l’utilité des touches ESC, CTRL et des 
quatres flèches, qui est secondaire. 


* La touche la plus importante du clavier est la touche ”’RETURN”, 
qui se trouve à droite du clavier. En effet, à chaque fois que vous tapez 
quelque chose sur le clavier, il faut terminer en frappant cette touche 
? RETURN”. 


Pour expliquer ceci de façon imagée, on peut dire que lorsque l’on 
frappe une touche ” ordinaire” (lettre, chiffre, ponctuation), l'ORIC-I1 se 
conduit exactement comme une machine à écrire: il se contente d’affi- 
cher sur l’écran les caractères frappés sur le clavier, sans plus. 
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Au contraire, lorsque l’on frappe sur la touche RETURN”, 
ORIC-I se réveille et se conduit comme un ordinateur. 


Pour illustrer ceci, frappez sur les touches E, X, P, L, O, D et E. A 
chaque fois, l’'ORIC-1 affiche le caractère frappé et déplace le curseur, 
comme une simple machine à écrire. Frappez maintenant sur cette 
touche RETURN. L’ORIC-1 accompli les actions suivantes : 


— Il vérifie que ce que vous avez tapé, ici le mot EXPLODE, fait bien 
partie de son langage, qui s’appelle BASIC. 


— Il exécute une action correspondant à ce que vous avez tapé. Ici, il 
produit un bruit imitant celui d’une explosion, ce qui correspond au 
mot EXPLODE. 


— Ayant terminé ce qu’on lui avait demandé, il affiche le mot 
” Ready ”, ce qui signifie ” j’ai terminé ce que vous m’avez demandé, 
je suis prêt à exécuter un autre ordre”. Puis ORIC-I1 place le curseur 
à gauche de la ligne suivante. 


C’est donc le fait de frapper la touche RETURN qui active l’ordi- 
nateur ORIC-I. Pour cette raison, les informaticiens disent de cette 
touche qu’elle est ”’le caractère d’activation” de l’'ORIC-1. 


Tapez PAPER, frappez sur la touche d’espacement puis sur la 
touche 2. Là encore, ORIC-1 se comporte comme une machine à écrire. 
Le texte PAPER 2 est affiché sur l’écran avec le curseur à sa droite. 
Maintenant frappez sur ? RETURN”. 


— L'ORIC-I vérifie que ce que vous avez tapé, PAPER 2, fait partie de 
son langage, ce qui est le cas. 


— Il exécute l’action correspondante. C'est-à-dire qu’il donne au 
” papier”, c’est-à-dire l’écran, la couleur numéro 2, qui est le vert. 


— Ayant terminé, il affiche ”’ Ready” (” Prêt” en français) et place le 
curseur à gauche. 


Tapez le mot GARG. L’ORIC-1 se comporte toujours comme une 
machine à écrire, il affiche ce qu’on tape, ni plus, ni moins. Frappez sur 
?RETURN”. 


— L'ORIC-1 regarde si ce que vous avez tapé fait partie de son 
langage. Or le mot GARG n’y appartient pas. L’ORIC-1 affiche 
donc le message ?SYNTAX ERROR, qui signifie en fait ” je ne 
comprends pas”. 


— Puis il affiche ” Ready”, il est de nouveau prêt. 


* La barre d’espacement sert à séparer des mots. On l’appelle aussi la 
touche ”espace”, (” space” en anglais) ou plus simplement ” blanc”. 
Par exemple, si l’on veut frapper PAPER 2, elle permet de séparer le 
mot PAPER du chiffre 2. 


* 


Il ne faut pas confondre la lettre ” O ” et le chiffre ”’@”’. Pour les distin- 
guer, le chiffre zéro comporte une barre (ÿ). 


* 


Les touches SHIFT, situées à gauche et à droite de l’avant-dernière 
ligne du clavier, servent lorsque l’on veut frapper l’un des caractères 
suivant : 


| CAS A &Rx()£ +1 [} :” <> ? 


Il faut dans ce cas frapper l’une des touches SHIFT puis, sans lâcher 
SHIFT, frapper la touche correspondant au caractère choisi. 


Exemple : On désire frapper : 


?''BONJOUR !” 


On appuie sur SHIFT et ? (en bas à droite du clavier) puis sur 
SHIFT et ” (à côté de RETURN), puis l’on tape BONJOUR, on appuie 
sur SHIFT et ! (même touche que 1, en haut à gauche), on appuie de 
nouveau sur SHIFT et ”. 


Voilà, c’est terminé. Il ne reste plus qu’à frapper sur RETURN. 


* La touche DEL (comme DELETE, détruire) permet de corriger les 
fautes de frappe, tant que l’on a pas frappé sur RETURN. Elle efface 
le dernier caractère, c’est-à-dire celui qui est à gauche du curseur, et 
recule le curseur. 


Exemple : Frappez sur les touches Z, A et T. Le mot ZAT se trouve affi- 
ché sur l’écran, le curseur est à droite du T. Malheureusement, c’est ZAP 


et non ZAT qu’il fallait taper. Frappez donc sur la touche DEL. Le T 
disparaît, on a maintenant ZA affiché, le curseur est juste à droite du A. 
Frappez sur le P. Voilà,le mot ZA P est sur l’écran, l’erreur est corrigée. 
Vous pouvez frapper sur RETURN. 


Frappez sur les touches Z, I et P. Le mot ZIP est affiché, à la place 
de ZAP. Frappez sur DEL. Le P disparaît. Frappez encore sur DEL. Le 
I incorrect disparaît. Frappez alors sur A puis P. L’erreur est corrigée, 
vous pouvez réveiller l’'ORIC-1 en frappant RETURN. 


1.4. CE QUE JE SAIS FAIRE, MOI, ORIC-1 


Avant d’exposer le fonctionnement détaillé de l’'ORIC-1, voici 
quelques petits exemples pour se familiariser avec le clavier et découvrir 
les possibilités de ce petit ordinateur. 


— Il sait calculer. Tapez: 


? 1 + 1 return 


Le ? s’obtient en frappant sur SHIFT et la touche ?/ située en bas à 
droite du clavier. Le + s’obtient en frappant sur SHIFT et la touche +— 
située en haut à droite du clavier. 


ORIC-1 affiche le résultat 2 puis ” Ready”. 


Vous pouvez taper les opérations suivantes, et vérifier que le résul- 
tat donné par l’ORIC-I est bien correct. 


? 8-5 

23x72 

? 10/5 

? 75 + 50/2 

? 12345679 x 3 x 9 
? 12345679 x 7 x 9 
? SQR(49) 


* est le signe de multiplication. On l’obtient en frappant SHIFT et 
la touche 8 «./ est le signe de division. La touche est ?/, située en bas à 
droite du clavier. SQR est la racine carrée. 


— Il sait manipuler des lettres et des mots: 
Tapez : 
PRINT "COUCOU return 
L’ORIC-1 affiche le mot entre guillemets. 
Tapez: 
PRINT ’’JE SAIS MANIPULER DES MOTS” 
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Frappez ”return””. Le message entre guillemets est affiché. 


Note: ? est une forme abrégée de PRINT, on peut indifféremment taper 
? ou PRINT. 


Vous pouvez recommencer, en remplaçant le texte entre guillemets 
par un autre de votre choix. Il ne faut pas oublier les guillemets avant et 
après le message. Il ne faut pas non plus les confondre avec l’apostrophe, 
qui se trouve sur la même touche. ” est l’apostrophe, on l’obtient en frap- 
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pant la touche à gauche de ”return”. ” est le guillemet, on l’obtient en 
frappant SHIFT et la touche à gauche de ”return”. 


— ORIC-1 sait engendrer huit couleurs, qui sont: 


noir 
rouge 
vert 
jaune 

leu 
violet 
bleu clair 
blanc 


OUI B © ND = © 


On donne un numéro à chaque couleur, comme indiqué ci-dessus. 
Par exemple, 1 représente le rouge. Tapez: 


PAPER 1 return 


L'ordre PAPER donne à l’écran la couleur dont le numéro suit, ici 
le numéro est 1, la couleur obtenue sera le rouge. Tapez: 


INK 2 return 


L'ordre INK donne au texte affiché la couleur dont le numéro suit, 
ici le numéro est 2, la couleur obtenue sera le vert. Pour essayer toutes 
les couleurs, tapez maintenant : 


PAPER f return l'écran devient noir 
PAPER 1 return l'écran redevient rouge 
PAPER 2 return Pas de panique. Comme le texte était vert et que l'écran 


est aussi vert, on ne voit plus rien, c'est normal. 


Tapez PAPER 3 en faisant bien attention sur le clavier. En effet, on 
ne peut vérifier ce que l’on tape sur l’écran, on écrit en vert sur fond vert. 
Néanmoins on voit le curseur violet se déplacer. Frappez RETURN. 
Cela devrait aller mieux. Si vous ne voyez toujours rien, vous vous êtes 
trompé en frappant PAPER 3, recommencez. 


Tapez : 
PAPER 4 l'écran devient bleu 
PAPER 5 l'écran devient violet 
PAPER 6 l'écran devient bleu ciel 
PAPER 7 l'écran devient blanc 


Vous pouvez aussi utiliser INK suivi d’un numéro de couleur, pour 
changer la couleur du texte. 


— Il sait engendrer des sons, des bruits et des notes. 


Essayez : 


ZAP return 

EXPLODE return 
SHOOT return 
PING return 


Tapez maintenant ce qui suit: 


19 FORK=#TO6return Attention a 
24 FORN=1TO 12return ne pas confondre 
39 MUSIC 1,K,N, return le chiffre f'et 


49 MUSIC 2,6—-K,13-N,freturn la lettre O 
59 PLAY 3, 4,1, 498 return 

68 WAIT 18 return 

74 NEXTN return 

89 NEXT K return 

99 PLAY 4, 4,4, d return 


Ceci est un programme. Chaque ligne commence par un numéro et 
lorsque l’on frappe sur RETURN, l’ORIC-1 range la ligne quelque part 
dans sa mémoire, sans l’exécuter. 


Tapez : 


CLS ’’return’’ L'écran est effacé 


Tapez LIST ”return”. Vous constatez que ce que vous avez tapé, le 
programme, existe toujours, l’ORIC est allé le rechercher dans sa 
mémoire et l’a affiché. Vérifiez que ce qui est sur l’écran est bien 
conforme au modèle ci-dessus. Si vous constatez qu’il y a une erreur 
dans une ligne, retapez la ligne entière, sans oublier de terminer par 
RETURN, retapez LIST ”return”. 


Lorsque tout est correct, vous pouvez faire exécuter ce programme. 
Tapez RUN ”return”. L’ORIC-1 doit vous jouer toutes les notes qu’il 
sait produire, c’est-à-dire 7 octaves. Si cela ne marche pas, et qu’un 
message d’erreur apparaît, vous vous êtes trompé en tapant (cela arrive à 
tout le monde). Alors refrappez LIST ”return” et retapez les lignes 
incorrectes. 


— Enfin, on peut obtenir des dessins. Tapez le programme suivant: 


19 PAPER 9: HIRES: INK 2 
28 FOR X = 32 TO 156 STEP 4 
34 CURSET X, 199, g 

49 CIRCLE X / 2,1 


5 NEXT 

68 FOR 1 = 1 TO 7 

78 INK I 

88 MUSIC 1, 1 — 1,5, 19: WAIT 299 
9f NEXT 


199 EXPLODE 
119 TEXT : PAPER 2: INK @: LIST 


A la fin de chaque ligne, on frappe sur ” RETURN”. Pour vérifier 
ce que vous avez tapé, tapez l’ordre LIST ”’return”. Relisez, retapez les 
lignes erronnées. Tout est correct ? Bien. Tapez l’ordre RUN ”’return”. 
Si vous désirez faire exécuter de nouveau le programme, il suffit de frap- 
per l’ordre RUN return”. 
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1.5. EN CAS DE CATASTROPHE 


Un ordinateur est une petite chose très complexe. Et parfois, il 
échappe au contrôle de l’utilisateur. 


Aussi, lorsque l’ORIC-1 ne répond plus à vos ordres, il faut: 


— Frapper sur la touche CTRL et sans lacher CTRL, frapper sur le 
°E 4 

— Si cela ne marche pas, c’est-à-dire si le mot Ready n’est pas de 
nouveau affiché, retournez l’ORIC-1. Près de la prise d’alimentation 
9 volts se trouve un trou rectangulaire, dans lequel se trouve un 
poussoir. À l’aide d’un crayon, enfoncez ce poussoir. L’écran est 
effacé et le mot Ready apparaît. Le programme qui se trouvait dans 
l'ordinateur y est toujours. 


— Enfin, si les deux solutions précédentes sont inefficaces, débranchez 
et rebranchez l’ORIC-1. Mais alors, le programme qui se trouvait 
dans l’ORIC-1 est perdu, effacé. 
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2 


Le langage de l'ORIC-1 : 
le Basic 


2.1. INTRODUCTION AU BASIC 


L’ORIC-1 est une machine. Il ne sait faire qu’une seule chose: 
exécuter les ordres que vous lui donnez, que vous frappez sur le clavier. 
De plus, il ne comprend qu’un seul langage, le sien, qui se nomme le 
BASIC. Ce qui signifie que pour utiliser votre ORIC-1, il vous faut 
apprendre le BASIC. Heureusement ce langage est très simple, il ne 
comprend qu’une centaine de mots. A titre de comparaison, 100 mots de 
“français et leurs définitions représentent 3 pages d’un petit dictionnaire 
ordinaire qui comprend lui environ 1 200 pages. 


Pour donner un ordre à l’'ORIC-1, il n’est pas besoin de faire une 
phrase, il ne comprendrait pas. En général, un seul mot, suivi ou non de 
quelques chiffres, suffit. 


ZAP est un ordre que comprend l’ORIC-1. Lorsque vous frappez 
ce mot, puis la touche RETURN, l’ORIC-I exécute cet ordre, c’est-à- 
dire qu’il émet une sorte de sifflement. 


EXPLODE est un autre ordre de l’'ORIC-1, qui produit un bruit 
imitant celui d’une explosion. 


PAPER 2 est aussi un ordre, qui signifie ”’donner à l’écran la 
couleur numéro 2”. La couleur numéro 2 est le vert.l’écran devient donc 
vert lorsque l’on frappe cet ordre, puis la touche RETURN. 
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Les ordres de l’'ORIC-1 sont très courts, il est donc possible d’en 
taper plusieurs sur une ligne, en les séparant par des : 


Tapez: 
CLS: PAPER 1: INK 2 return 


Cette ligne comporte trois ordres. Comme vous, l’ORIC-I1 lit de 
gauche à droite, il exécute d’abord le premier ordre CLS. ” CLS” est 
l’abréviation de Clear Screen”, ce qui signifie ”’effacer l’écran”. 
L’'ORIC-I efface donc l’écran. Puis il exécute le second ordre PAPER 1. 
C'est-à-dire qu’il donne à l’écran la couleur. numéro 1 qui est rouge. 
Enfin le troisième ordre, INK 2: il donne au texte affiché sur l’écran la 
couleur numéro 2 (vert). Le mot ”’ Ready” est donc écrit vert sur fond 
rouge. 


Comme tous les ordinateurs, l'ORIC-1 ne tolère pas la moindre 
faute d'orthographe, que l’on appelle des erreurs de syntaxe”. Tapez: 


PAPR 4 return 


L'ordre correct est PAPER 4. L’ORIC-1 affiche ? SYNTAX ERROR et 
n’exécute pas l’ordre. 


2.2. LE PROGRAMME BASIC 


Lorsque vous tapez un ordre, comme: 


EXPLODE return 


cet ordre est exécuté immédiatement lorsque vous frappez la touche 
return. Tapez maintenant: 


NEW return puis 


19 PAPER 1 

24 INK 2 

39 PRINT ‘JE SUIS DIABOLIQUE”’ return 

4ÿ ZAP: WAIT 39: EXPLODE: WAIT 49 return 
59 GOTO 39 return 
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Deux choses sont à remarquer: 
— chaque ligne débute par un numéro, 


— Lorsque l’on frappe sur la touche ” return”, il ne se passe rien, aucun 
ordre n’est exécuté, le mot Ready n’est pas affiché. 


A chaque fois qu’une ligne débute par un numéro, lORIC 1 
n’exécute pas les ordres qu’elle contient lorsque l’on frappe return”. Il 
range cette ligne dans sa mémoire. 


Tapez: 
CLS return 
L'écran est effacé, ce que vous avez tapé n’est plus visible. Mais 


lORIC-1 ne l’a pas oublié, cela se trouve toujours dans sa mémoire. 
Pour vous en convaincre, tapez : 


LIST return 


Ce que vous avez tapé est affiché. Vérifiez qu’il n’y a pas d’erreur et 
retapez en entier les lignes erronnées. Puis frappez : 


RUN return 


Pour arrêter, enfoncez la touche CTRL, à gauche du clavier, puis, 
sans lacher CTRL, frappez la touche C. Ouf! 


Pour recommencer, tapez de nouveau: 


RUN return 


En frappant CTRL-C, c’est-à-dire la touche CTRL puis, sans 
lacher CTRL, la touche C, on stoppe de nouveau. 


Le calme étant revenu, nous allons pouvoir expliquer ce qui s’est 
passé lorsque vous avez tapé l’ordre RUN. 


L’ORIC-1 a recherché dans sa mémoire la ligne de numéro le plus 
bas, c’est-à-dire ici 19. L’ayant trouvé, il exécute cette ligne, c’est-à-dire 
qu’il exécute l’ordre PAPER 1, l’écran devient rouge. 


Puis il cherche la ligne suivante, c’est-à-dire celle dont le numéro 
est le suivant, 29 ici. L'ORIC-1 exécute cette ligne, il exécute l’ordre 
INK 2 et le texte affiché devient vert. 
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Ceci fait, il cherche la ligne suivante, la ligne 39, celle dont le 
numéro est 39. Il exécute la ligne 39 en affichant le texte ”JE SUIS 
DIABOLIQUE”. 


L’ORIC-1 passe à la ligne suivante, qui est la ligne 49. Il exécute 
cette ligne, c’est-à-dire qu’il exécute les quatres ordres contenus dans 
la ligne de la gauche vers la droite. 


ZAP émet un sifflement. 


WAIT 39. Wait signifie attendre. L’ORIC-1 attend donc. Ceci 
laisse le temps au sifflement de résonner. 


EXPLODE émet un bruit imitant celui d’une explosion. 


WAIT 49. L’ORIC-1 attend un peu, sans rien faire. Ceci laisse le 
temps au bruit de résonner. 


Enfin, l’ORIC-1 passe la la ligne 59. ” GOTO ” signifie ” Aller en”, 
* GOTO 39” signifie ” Aller en 39”. L'ORIC-1 va donc à la ligne 39, et 
exécute la ligne 39. 


Puis il exécute la ligne qui suit, la ligne 49, etc... 


En résumé, voici ce qu’il faut retenir de l’explication précédente. 
q 


— Lorsque l’on tape simplement un ordre ou une suite d’ordres, séparés 
par : , l'ORIC-I exécute ce qui est tapé immédiatement, quand on 
frappe le texte ” RETURN”. 

Ceci s’appelle ”exécution en mode immédiat”. 


— Lorsque l’on tape un numéro devant un ordre ou une suite d’ordres, 
l'ORIC-1 range cette ligne dans sa mémoire, quand on frappe 
RETURN. 


* L'ordre LIST affiche les lignes en mémoire. 


* L'ordre RUN exécute les lignes en mémoire, en commençant par 
celle dont le numéro est le plus petit. 
Ceci s’appelle exécution en mode programme”. 


Les lignes débutant par un numéro, qui sont conservées dans la 
mémoire de l’'ORIC-I, sont aussi appelées ”lignes de programme”. 
Toutes ces lignes constituent ce que l’on appelle ”un programme”. 
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2.3. L'ORIC-1 ET LES NOMBRES 


L’ORIC-1 est capable d’utiliser des nombres entiers, positifs ou 
négatifs. Exemples: tapez: 
? 2+5 return 
? 2x 16 return 
? 36 — 42 return 
? 199 — 5 x 24 return 


Il connaît aussi les nombres décimaux, que l’on appelle aussi 
nombres à virgule”. Mais attention, l’'ORIC-1 utilise un point à la 
place d’une virgule. 


Exemples: Tapez: 


? 3/2 return 


L’ORIC-1 divise 3 par 2 et affiche le résultat sous la forme 1.5. 
Tapez : 
? 19/3 return 


L’ORIC-1 divise 19 par 3 et affiche le résultat sous la forme 
3333333339: 


Les nombres décimaux peuvent être exprimés en notation scienti- 
fique, c’est-à-dire en utilisant un exposant. 


1590 peut aussi s’écrire 1.5 10%. Le nombre 1.5 est ce que l’on 
appelle ”la mantisse” et le nombre 3 est appelé ”exposant”. Pour 
l'ORIC-1, ceci doit s’écrire sous la forme: 


LEE 3 


——— 


Ÿ 


mantisse exposant 


la lettre E sert à séparer la mantisse ét l'exposant. 


7.5E4 représente 7.5 194 soit 75 999 
11E8 représente 1.1. 198 soit 119900909 
—23E2 représente — 2.3 192 soit — 239 
1E-3 représente 1 19- 3 soit 9.991 
47E-—2 représente 4.7 19- 2 soit 9.947 
—3E-1 représente — 3 19- 1 soit — 9.3 


Exemple: Tapez: 


? 1.8 E 3 ‘’return” 


1.8E 3 vaut 1.8 19°, c’est-à-dire 1899. L’ORIC-I1 répond donc 184. 


Pour les nombres décimaux inférieurs à 1, comme .1 ou 9.25, le 
chiffre Ÿ situé à gauche du point décimal peut être omis. C’est-à-dire que 
l’on peut se contenter de taper .1 à la place de 9.1 ou .25 à la place de 
9.25. 


Exemples : Tapez : 


2 .1 + 1 ’’return”’ 


.1 représente Q.1 l'ORIC-1 calcule doncQ.1 + 1 et affiche le résultat 1.1. 
Tapez: 
? ASE —-2 


4.5 E — 2 représente 4.5 197? soit 9.945, l'ORIC-1 affiche ce résultat en 
omettant le Ÿ, soit 945. 


L’'ORIC-I est capable d’exécuter les opérations classiques : 


addition signe + (Frapper SHIFT + ) 

soustraction signe — 

multiplication signe * (Frapper SHIFT 8+ ) 

division signe al Ce signe est aussi appelé slash” 
puissance signe A (Frapper SHIFT 6A) 
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Tapez : 


?25+4%x3 A 2 return 


L'ORIC-1 affiche le résultat 41. En effet, il faut savoir que les 
opérations ont des priorités différentes, ce qui signifie que certaines sont 
effectuées avant les autres. 


Plus précisément, l’'ORIC-1 calcule : 


— les puissances, 
— puis les multiplications et les divisions, 
— puis les additions et les soustractions. 


Reprenons le cas précédent : 5+4»3A2 
L'ORIC-1 calcule d'abord la puissance 3 À 2 —9 

il reste à calculer 5+4%9 
L'ORIC-1 calcule la multiplication 4 » 9 — 36 

il reste à calculer 5 + 36 
L'ORIC-1 calcule l'addition 

on obtient le résultat 41 


Exemple: Si vous tapez: 


21+2x3-16/2 A 2 return 


vous obtiendrez 3 pour réponse. 


1+2»3—16/2A2 
On calcule d'abord la puissance 2 À 2 


il reste à calculer 1+2#3—16/4 
On calcule la multiplication et la division 

il reste à calculer 1+6—4 
On calcule l'addition et la soustraction 

on obtient 3 


Si l’on désire que l’ORIC-1 effectue les opérations dans un ordre 
différent, on emploie des parenthèses. En effet, ce qui se trouve entre 
parenthèses sera toujours calculé en premier. 


Si vous tapez: 


?22A 3+1 return 
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Vous obtiendrez 9 pour résultat. L'ORIC-1 calcule la puissance 2 
À 3 — 8 puis calcule 8 + 1 — 9. Si maintenant vous tapez: 


| ?22A (3+1) return 


Vous obtiendrez 16 pour résultat 2A(3+1) 
L'ORIC-1 calcule ce qui est entre parenthèse 2A4 
puis la puissance 16 


Exemples : 


5+3%+4-—72 (5 +3)» (4—2) 
5+12-—72 8: 2 
15 16 
8+4A3-2,5 8+4A((3—2).5) 
8+64—-2%5 8+4AÂA( 1 +5) 
8+64 — 19 8+4A 5 
62 8 + 1924 
1932 


2.4. L'ORIC-1 ET LES MOTS 


L’ORIC-1 peut afficher des résultats, des nombres, mais aussi des 
textes quelconques. Il suffit de placer ces textes entre guillemets. 


Exemples : Tapez : 


PRINT ‘MOT’ return 
PRINT ’’ CECI EST UNE PHRASE ”’ return 


Il ne faut pas confondre le guillemet ” et l’apostrophe ?. Pour obte- 
nir le guillemet il faut frapper la touche SHIFT. 


2.5. DES VARIABLES POUR RANGER DES NOMBRES 


L’ORIC-1 possède une mémoire. Lorsque vous tapez un 
programme, c’est-à-dire une suite de lignes débutant par des numéros, 
PORIC-1 range ces lignes, ce programme, dans sa mémoire. Il est aussi 
possible de ranger des nombres dans cette mémoire. On compare 
souvent la ” mémoire” d’un ordinateur à un grand nombre de petits 
tiroirs. Dans chaque tiroir, on peut ranger un nombre. 


Pour désigner, pour retrouver un tiroir, on lui colle dessus une étiquette 
ou l’on inscrit un mot, un nom. Pour utiliser un nombre rangé dans un 
tiroir, il suffit de donner à l’ORIC-1 le nom du tiroir. L’'ORIC -1 est 
capable de retrouver le tiroir, et regarder ce qu’il y a dedans. Ce nom est 
aussi appel ” variable”. 

Tapez: 


MEM = 4 return 
L’ORIC-1 a fait ceci: 


— il a mis le nombre 4 dans un tiroir, 
— puis sur ce tiroir, il a inscrit le mot MEM. 
Tapez : 
A = 19 return 
— l'ORIC-1I a mis le nombre 19 dans un autre tiroir (on dit aussi une 


case mémoire), 
— puis sur ce tiroir, il a inscrit le mot, le nom A. 


Il y a donc maintenant dans la mémoire de l’'ORIC-1, deux tiroirs, 
deux cases mémoires, qui s’appellent ’MEM” et ”’ A”, dans lesquels 
sont rangés les nombres 4 et 19. Tapez: 


? A return 


L’ORIC-1 recherche le tiroir, la case mémoire qui s’appelle A, 
regarde son contenu, et affiche ce dernier, c’est-à-dire 19. Tapez: 


? MEM + 1 return 


L’ORIC-1 recherche le tiroir MEM, où il trouve le nombre 4. Puis 
il ajoute le contenu du tiroir à 1, pour trouver 5, ce qu’il affiche. 
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Tapez maintenant : 


MEM = 5 return 


Il existe dans la mémoire de l’'ORIC-1 un tiroir appellé MEM. 
L’ORIC-1 y place le nombre 5. Le nombre qui y était avant, 4, est lui 
tout simplement perdu, oublié. 


Exemples : 
* Tapez: 
MEM = 1 return 


À = MEM + 2 return 
? A return 


A vaut 3. En effet, on a mis dans MEM la valeur 1. MEM + 2 vaut 
donc 1 + 2, c’est-à-dire 3, qui est rangé dans A. 


* Tapez: 


A = 1 return 


Ceci place le nombre 1 dans A. Tapez maintenant : 


A = À + 1 return 
? A 


A vaut maintenant 2. En effet, on avait mis le nombre 1 dans A. 
L'ORIC-I a calculé À + 1, c’est-à-dire 1 + 1 — 2, puis il a mis ce résul- 
tat, 2, dans A. Il y a donc maintenant le nombre 2 dans A. 


Ces tiroirs, ces cases mémoires portant une étiquette sont aussi 
appelées ” variables”, car leur contenu peut être modifié, il peut varier. 


Les variables sont particulièrement utiles dans les programmes. 
Voici par exemple un programme qui compte. Tapez: 


NEW return 
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Ceci efface le programme précédent, s’il y en avait un. Puis tapez le 
programme : 


19 1 = Ÿ return 
29 PRINT 1: WAIT 38 return 
39 1 = 1 + 1 return 


4ÿ GOTO 28 return 


Vérifiez qu’il n’y a pas eu de faute de frappe, retapez les lignes 
erronnées. Puis tapez: 


RUN return 


L’ORIC-1 se met à compter. Pour arrêter, frappez CTRL-C. Voici 
comment fonctionne ce programme. Comme on l’a déjà dit, l’'ORIC-1 
exécute d’abord les ordres de la ligne dont le numéro est le plus bas. 
Lorsque l’on tape RUN, il exécute donc ici la ligne 19, c’est-à-dire I — 4. 
Il met le nombre @ dans un tiroir et inscrit I sur ce tiroir. Puis il exécute 
la ligne 29. Tout d’abord PRINT I. L’ORIC-1 affiche le nombre contenu 
dans I, c’est-à-dire 9. Puis WAIT 39. Pour que vous ayez le temps de lire 
le nombre qui vient d’être affiché, l’'ORIC-1 attend un peu sans rien 
faire. Nous passons à la ligne 39. I vaut 9. L’ORIC-I1 calcule I + 1, qui 
vaut donc @ + 1 = 1 puis place ce résultat dans I, qui vaut maintenant 1. 
On arrive à la ligne 49, qui nous dit d’aller à la ligne 29 (GOTO signifie 
äller à). Alors on y va. On affiche I, qui vaut 1, on attend un peu, et on 
passe à la ligne suivante 39. On calcule I + 1, c’est-à-dire 1 + 1 et l’on 
range ce résultat dans I, qui contient maintenant le nombre 2, etc... 


Au fur et à mesure que le programme se déroule, I contient succes- 
sivement les nombres Ÿ, 1,2, 3, 4, … Le nombre contenu dans I varie. 
C’est pourquoi le tiroir” I est aussi appellé ” variable 1”. 


Tapez maintenant: 


24 PRINT 1, 1 x 1: WAIT 6$ return 
LIST return 


On a changé la ligne 29. Le programme maintenant affiché doit 
être : 
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181-9 

24 PRINT 1,1 x 1: WAIT 69 
3% 1-1+1 

4ÿ GOTO 24 


Tapez : 
RUN return 


Le programme affiche à chaque fois I puis I*I, c’est-à-dire le 
carré du nombre contenu dans I. Pour arrêter, frapper CTRL-C. 


Les variables permettent aussi à un programme de demander des 
nombres à l’utilisateur, qui les frappe au clavier. Tapez: 


NEW return 

19 PRINT ‘’’DONNEZ UN NOMBRE’ return 
28 INPUT N return 

39 PRINT N x N return 

4ÿ GOTO 18 return 


Tapez : 
RUN return 


Le programme affiche le texte ” DONNEZ UN NOMBRE” 
(ligne 19). Puis on passe à la ligne suivante 29, qui contient l’ordre 
INPUT N. INPUT” signifie ”’entrer”. N est un nom de variable. 
L'ordre INPUT affiche un ? sur l’écran. Tapez un nombre, par exemple : 


5 return 


INPUT a pour effet de placer dans la variable N le nombre que 
vous avez tapé. Puis on passe à la ligne suivante, le numéro 39. On y 
calcule N * N, qui vaut 25 puisque N contient 5, et ce résultat est affiché. 
Puis la ligne 49 nous dit d’aller en 19, le programme recommence et vous 
demande un nouveau nombre. Pour arrêter, frappez CTRL-C. 
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2.6. DES VARIABLES POUR RANGER DES MOTS 


Les variables dont on a parlé au chapitre précédent permettent de 
ranger, de stocker des nombres. Pour cette raison, on les appelle des 
”variables numériques ”. 


Il est aussi possible de stocker des mots, des textes dans des 
variables prévues pour stocker des mots, des textes, on dit aussi des 
‘chaînes de caractères”. Ces variables sont appelées ” variables 
chaînes”. 


Comme les variables numériques, les variables chaînes ont un nom. 
Pour distinguer un nom de variable chaîne d’un nom de variable numé- 
rique, tous les noms de variables chaînes se terminent par le caractère $. 


Tapez : 

A$ = VELO” return (le $ est au-dessus du 4) 

A$ est un nom de variable chaîne, il se termine par le caractère $. 
L'ORIC-1 a agit ainsi: 


— il a mis le mot VELO dans un tiroir pour chaîne de caractère, 
— puis sur ce tiroir, il a inscrit le nom A$. 


Tapez : 
? A$ return 


L’ORIC-1 recherche le tiroir qui s’appelle A$, regarde son contenu, 
et l'affiche. 


Les variables chaînes permettent aussi à un programme de deman- 
der un mot, une suite de caractères à l’utilisateur. Tapez: 


NEW return 
Ce qui efface le programme précédent. Tapez le programme: 


19 PRINT TAPEZ VOTRE NOM 
24 INPUT NOM$ 
39 PRINT NOM; ” EST GENIAL” 
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Puis tapez : 
RUN return 


La ligne 19 affiche le message TAPEZ VOTRE NOM. La ligne 29 
affiche un ? et l’'ORIC-1 attend que vous tapiez quelque chose. Frappez 
votre nom, suivi de RETURN. Ce que vous avez tapé est alors placé 
dans la variable, dans le tiroir NOM$. Puis la ligne 39 est exécutée : le 
contenu de la variable NOMS$, c’est-à-dire ce que vous avez tapé, est affi- 
ché, suivi du message ” EST GENIAL”. 


2.7. ATTENTION AUX NOMS DE VARIABLES 


Comme on l’a dit, une ” variable” est un tiroir, une case, dans 
lequel on peut ranger un nombre, pour les variables numériques, ou un 
mot, un texte, pour les variables chaînes. Pour désigner, pour retrouver 
ces variables on leur donne un nom, que l’ORIC-I inscrit sur le tiroir 
correspondant. Mais attention, pour économiser la place dans sa 
mémoire, l’'ORIC-1 inscrit au maximum deux caractères du nom, les 
deux premiers. Ce qui signifie que l’ORIC-1 confondra deux noms de 
variables qui débutent par les deux mêmes lettres. Ces deux noms corres- 
pondent au même tiroir, à la même variable. 


Tapez : 
IDEAL = 3 return 


Ceci place le nombre 3 dans un tiroir, une case mémoire, a qui 
lORIC-1 donne le nom ID. En effet I et D sont les deux premières lettres 
de IDEAL. Tapez: 


? IDEAL 

Le nombre contenu est affiché. Tapez maintenant : 
IDIOT = 4 return 

Tapez: 


? IDEAL return 
? IDIOT return 
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Le nombre 4 est affiché deux fois. En effet, ces deux noms débutent 


par les deux mêmes lettres, ils correspondent au même tiroir, à la même 
variable de nom ID. 


En tapant IDIOT = 4, vous avez placé dans le tiroir, la variable 
ID, le nombre 4. En tapant: 


? IDEAL 
? IDIOT 


vous avez demandé deux fois à l’'ORIC-1 d’afficher le contenu de la 
variable ID, qui vaut 4. 


Tapez: 


? ID 
? IDEE 
? IDEM 


Vous obtiendrez encore le contenu de la variable ID. 


Le même phénomène se produit avec les variables chaînes qui 
débutent par les deux premières lettres. 


Tapez: 


MOT$ = ’’VOITURE"’ return 
? MOTS return 

MOU$ = ’’VELO”’ return 

? MOUS$ return 

? MOTS return 


Les noms de variables MOUS et MOTS correspondent à la même 
variable. 


De plus, un nom de variable ne doit pas contenir un mot du Basic. 
Si vous tapez : 


SOIF = 3 


Vous obtiendrez le message ? SYNTAX ERROR, car le mot IF 
est contenu dans ce nom. 
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2.8. LES BRANCHEMENTS — LES CONDITIONS 


Les lignes d’un programme sont normalement exécutées dans 
l’ordre des numéros croissants. Arrivé à la dernière ligne, l’'ORIC-1 
affiche ” Ready” et attend de nouveaux ordres. En voici un exemple. 


Tapez: 
NEW return Ceci efface le programme précédent 
Puis tapez le programme: 


19 CLS 

24 PRINT ‘ATTENTION A L'EXPLOSION” 
34 WAIT 399 

4 EXPLODE 


Chaque ligne est terminée en frappant RETURN. Comme vous 
vous y êtes maintenant habitué, je ne le préciserai plus dorénavant. 


Tapez : 
RUN 


L’ORIC-1 exécute la ligne 19, l’ordre CLS efface l’écran. Il exécute 
ensuite la ligne 29 qui affiche le message ” ATTENTION A L’EXPLO- 
SION ”. Il exécute la ligne 39. WAIT 399 signifie ” attendre 3 secondes 
sans rien faire”. Enfin il exécute la ligne 49, un bruit d’explosion retentit. 
Ayant exécuté toutes les lignes, l'ORIC-1 affiche le mot ” Ready” et 
s’arrête. 


Les ordres qui suivent permettent de modifier cet ordre d’exécution 
des lignes. 


* L'ordre GOTO. 


Il permet d’aller à une ligne qui n’est pas la suivante. ” GOTO” 
signifie ”’aller en”. Vous avez tapé le programme précédent. Tapez: 


58 GOTO 29 
LIST 


27 


Le programme affiché par l’ORIC-1 est le suivant: 


19 CLS 

24 PRINT ‘ATTENTION A L'EXPLOSION ‘’ 
34 WAIT 399 

49 EXPLODE 

59 GOTO 24 


Tapez : 
RUN 


De même que précédemment, l’'ORIC-1 exécute les lignes 19, 29, 
30 et 49. Puis il passe à la ligne 59, où il trouve l’ordre GOTO 2ÿ. Ceci 
signifie ” Aller en 29”. Il va donc à la ligne 29, l’exécute de nouveau, 
exécute les lignes 39 et 49, puis 59, de nouveau il se branche, il va en 29... 
et ainsi de suite. Pour l’arrêter frapper CTRL-C. 


* Les ordres GOSUB … RETURN 


Il arrive que dans un même programme, on trouve des séries de 
lignes identiques. Considérons le programme : 


19 PRINT VOICI UNE PREMIERE EXPLOSION 
28 WAIT 194 

39 ZAP: WAIT 4ÿ 

49 EXPLODE : WAIT 58 

59 PRINT ’’PUIS UNE SECONDE 

69 WAIT 199 

74 ZAP: WAIT 4ÿ 

84 EXPLODE: WAIT 58 


Les lignes 69 à 89 sont identiques aux lignes 29 à 39. Plutôt que de taper 
deux fois ces lignes comme ci-dessus, on peut utiliser GOSUB … 
RETURN. Le programme ci-dessous produit exactement le même effet 
que le précédent: 


19 PRINT ”’VOICI UNE PREMIERE EXPLOSION ”’ 
24 GOSUB 68 

34 PRINT ‘PUIS UNE SECONDE” 

49 GOSUB 69 

59 END 

68 WAIT 194 

74 ZAP: WAIT 4ÿ 

89 EXPLODE: WAIT 5$ 

99 RETURN 
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Les lignes de ce programme sont exécutées dans l’ordre suivant : 


— 19 le message est affiché puis, 


— 24 on trouve GOSUB 6, ce qui signifie GO TO SUBROUTINE 69 
puis on se branche en 69, 


— 69-79-89 sont exécutées, 

— 99 RETURN provoque un retour à l’ordre situé juste après GOSUB, 
c’est-à-dire à la ligne 39, 

— 30 affiche le second message puis, 

— 4ÿ on a GOSUB 69. De nouveau on se branche, on va à la ligne 6, 

— 69-79-89 sont de nouveau exécutées, 


— 9 provoque un retour à l’ordre situé juste après GOSUB, c’est-à- 
dire à la ligne 59, 


— 59 l’ordre END signifie fin”. L’'ORIC-1 affiche ”Ready” et 
s'arrête. 


69 … 
19 … a sie 
20 GOSUB 69 89 … 
99 RETURN 


30 … a .. 
40 GOSUB 60 70 .… 


89 … 
99 RETURN 


| 


59 END 


Cette série de lignes 69 à 9, qui peut, grâce à l’ordre GOSUB, être 
utilisée en plusieurs endroits, est appelée ”’sous-programme”. Un sous- 
programme se termine par un ordre RETURN. 


En résumé, il faut se souvenir que: 
— GOSUB... provoque un branchement à la ligne indiquée, 


— RETURN provoque un retour à l’ordre situé juste après le dernier 
ordre GOSUB rencontré. 
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Voici un second exemple qui permettra de ” voir ” ce qui se passe. 
Tapez : 


NEW 

19 PRINT JE SUIS EN 19” 

24 GOSUB 64 

34 PRINT ‘JE SUIS EN 39” 

49 GOSUB 68 

58 END 

68 PRINT ’’SOUS-PROGRAMME EN 6” 
74 PRINT ‘JE SUIS EN 79” 

89 RETURN 

RUN 


* Les ordres FOR … NEXT 


Il est fréquent que l’on désire qu’une suite de lignes soit exécutée 
plusieurs fois de suite. Pour cela, nous allons utiliser les ordres FOR et 
NEXT. Voici un programme qui produit 19 explosions. Tapez : 


NEW 

19 CLS 

28 FOR I = 1 TO 19 

39 PRINT 1; ’’EXPLOSION‘’: WAIT 59 
4ÿ EXPLODE : WAIT 199 

59 NEXT | 

68 PRINT ‘C'EST FINI. OUF!” 

RUN 


Les lignes 39 et 49 ont été exécutées 10 fois. 


Les lignes 29 à 59 constituent ce que l’on appelle une boucle. 
L'ordre FOR I = 1 TO 19 est le début de la boucle, l’ordré NEXT I est 
la fin de la boucle. 


La ligne 19 provoque l’effacement de l’écran. A la ligne 26, 
l'ORIC-1 place le nombre 1 dans la variable I. Puis il exécute la ligne 39, 
I imprime le nombre contenu dans la variable I, c’est-à-dire 1, suivi du 
mot EXPLOSION. Puis on exécute 4ÿ. On arrive à la ligne 59, à l’ordre 
NEXT I. L’ORIC-1 ajoute 1 au nombre stocké dans la variable I, il y a 
donc 2 dans I. Et on exécute de nouveau ce qui se trouve à l’intérieur de 
la boucle. A la ligne 34, on affiche le contenu de I, soit 2, suivi du mot 
EXPLOSION, on passe à la ligne 49, puis 59. De nouveau on ajoute 1 
au nombre stocké dans I, on obtient 3, etc. Lorsque la boucle a été 
exécutée 19 fois,on passe à la suite, à la ligne 6. 
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Voici un autre exemple de boucle. Tapez: 


NEW _. 

19 FORI1=-5TO5 

29 PRINT 1; ‘A POUR CARRE”; 1x1 
39 NEXT I 

RUN 


Dans les exemples précédents, l’ordre NEXT' ajoute 1 au contenu 
de la variable. Il est possible de lui faire ajouter un nombre quelconque, 
grâce à STEP. Tapez: 


NEW 

19 FOR J = # TO 29 STEP 2 
24 PRINT J 

34 NEXT } 

RUN 


Dans ce cas, on ajoute chaque fois 2 au nombre contenu dans I. 
L’ORIC-1 affiche donc tous les nombres pairs de @ à 29. Le nombre 
situé après STEP, ici 2, est appelé le ” pas” de la boucle. 


On peut employer un pas négatif. Dans ce cas, le pas est retranché 
à chaque fois du nombre contenu dans la variable. Tapez: 


NEW 

19 CLS 

28 PRINT ‘ATTENTION A L'EXPLOSION” 
34 WAIT 299 

49 FOR T = 5 TO S STEP —1 

58 PRINT T: PING: WAIT 199 

64 NEXTT 

74 EXPLODE 


* Ordre IF … THEN … 


IF … THEN … signifie SI … ALORS … Ceci permet à l’'ORIC-I de 
prendre des décisions. ”Si”” une condition est réalisée, ” alors” il fait 
quelque chose. Ne vous affolez pas, c’est beaucoup plus simple en 
prenant un exemple. Tapez: 


NEW 

19 PRINT DONNEZ UN NOMBRE” 

28 INPUT N 

39 R = N — 2 » INT (N / 2): PRINT ’R='"'; R 
49 IF R = 1 THEN PRINT ”’IMPAIR’’: GOTO 18 
58 PRINT ’’PAIR” 

68 IF N <> Ÿ THEN GOTO 1# 
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Ce programme vous demande un nombre et vous dit si ce nombre 


est pair ou impair. Si le nombre est nul le programme s’arrête, sinon il 
vous demande un autre nombre. Tapez: 


S 
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RUN 
Le programme vous demande un nombre. Tapez: 


le programme vous répond ’’PAIR’’ puis redemande un nombre. 
Tapez 
le programme vous répond ‘’IMPAIR'’ et redemande un nombre. 
Tapez 
le programme vous répond ”’PAIR’’ puis s'arrête, ‘’Ready’’ et affiche. 


Voici comment ce programme fonctionne: 
La ligne 19 affiche le message DONNER UN NOMBRE. 


La ligne 29 affiche un ?, le nombre que vous tapez est placé dans la 
variable N. 


La ligne 39 calcule et range dans la variable R le reste de la division 
du nombre contenu dans N par 2. C'est-à-dire que si N est pair, on 
met @ dans R, si N est impair on met 1 dans R. 


Puis on arrive à la ligne 4ÿ: 


IF R = 1 THEN PRINT ”’IMPAIR’’: GOTO 18 


si R contient 1 alors afficher *’IMPAIR ”, aller à la ligne 19. Si la 
condition est satisfaite, c’est-à-dire si R vaut 1, on exécute les ordres 
situés après THEN : on affiche le mot impair puis on va à la ligne 19. 
Si la condition n’est pas satisfaite, lorsque R vaut Ÿ, on n’exécute pas 
les ordres situés après THEN et on passe à la ligne suivante. 


Si le nombre est impair, on est allé en 19. S’il est pair, on arrive à la 
ligne 59 et on affiche le mot ” PAIR” et on passe à la ligne 69. 


IFEN <> Ÿ THEN GOTO 19 


si N est différent de @ alors aller à la ligne 19. 

Si la condition est réalisée, c’est-à-dire si le nombre contenu dans N 
n’est pas nul, alors on exécute l’ordre situé derrière THEN, on va à 
la ligne 19. 


Si la condition n’est pas réalisée, lorsque le nombre contenu dans N 
est nul, on n’exécute pas l’ordre situé derrière THEN. Il n’y a pas de 
ligne suivante, le programme s’arrête et l'ORIC-1 affiche ” Ready”. 


Voici-un second exemple. Tapez: 


NEW 

19 PRINT ’’CE PROGRAMME EST FANTASTIQUE’ 
24 PRINT "QU'EN PENSEZ-VOUS (OUI/NON) ” 
34 INPUT A$ 

49 IF A$ = ‘NON’ THEN GOTO 19 

58 IF A$ = OUI’ THEN PRINT ‘MERCI’: END 
69 PRINT ’’REPONDEZ PAR OUI OÙ PAR NON” 
74 PING : GOTO 3f 


Vérifiez que ce que vous avez tapé est correct, retapez les lignes 
erronnées s’il y en a. Puis tapez: 


RUN 


Les lignes 19 et 29 affichent les messages : 


CE PROGRAMME EST FANTASTIQUE 
QU'EN PENSEZ-VOUS (OUI/NON) 


La ligne 39, l’ordre INPUT affiche un ?. Tapez: 
NON 
L’ORIC-1 met ce mot dans la variable A$ puis passe à la ligne 4ÿ 


où se trouve un test, un ordre IF … THEN … 


IF A$ = ’’ NON’ THEN GOTO 18 
SI A$ contient ’ NON’ alors aller à la ligne 19 


Ici, A$ contient le mot ” NON”, la condition A$ — NON” est 
satisfaite, l’ordre situé après THEN, c’est-à-dire GOTO 19 est donc 
exécuté. On va à la ligne 19. Les messages sont de nouveau affichés 
(lignes 19 et 29). La ligne 30, l’ordre INPUT affiche un ?. Tapez: 


ZUT 


L'ORIC-1 met ce mot dans la variable A$ et passe à la ligne 4ÿ. 
A$ ne contient pas ” NON”. La condition A$ = ” NON”, c’est-à-dire 
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? A$ contient NON” n’est pas satisfaite. L'ordre situé après THEN n’est 
pas exécuté, l’'ORIC-1 passe à la ligne 59 où se trouve un nouveau test : 


IF A$ = OUI’ THEN PRINT ’’MERCI”’: END 
si A$ contient OUI” alors afficher MERCI ”': fin du programme 


Pour l’instant, A$ contient le mot ZUT. La contion A$ — OUI” 
n’est pas satisfaite. Les ordres situés après THEN ne sont pas exécutés, 
on passe à la ligne suivante, de numéro 69. Le message ”REPONDEZ 
PAR OUI OÙ PAR NON ” est affiché. La ligne 79 émet un son (PING), 
et l’on va à la ligne 39 (GOTO 39). On retrouve l’ordre INPUT. Tapez: 


OUI 


Ce mot est placé dans A$ par l’ORIC-1 qui passe ensuite à la 
ligne 49. A$ contient le mot * OUI”, la condition A$ — * NON”, n’est 
pas satisfaite. Les ordres qui suivent le THEN de cette ligne 49 ne sont 
pas exécutés, on passe à la ligne 59, où se trouve un autre test. Comme 
A$ contient maintenant ” OUI”, la condition A$ = ” OUT” est satisfaite. 
On exécute donc les ordres situés après THEN. D’abord PRINT 
? MERCI”, le mot ” MERCI” est affiché. Puis END. Le programme 
s'arrête, le mot ” Ready” est affiché. 


Le fonctionnement de ce programme est donc le suivant: 


19-29 on affiche deux messages 

39  ORIC-1 lit la réponse tapée par l’utilisateur, vous-même. 

49 Si cette réponse est NON, on va en 1f. 

59 Si cette réponse est OUI, on affiche ‘MERCI’ et on stoppe. 


68 Si l’on arrive à cette ligne, cela signifie que la réponse n'est ni 
OUI ni NON. On affiche donc ’’REPONDEZ PAR OUI OÙ PAR 
NON’ et 


74 on émet un son, PING, on va en 38. 


Les ordres de branchement-condition que nous venons de voir sont: 


— GOTO. On l’appelle aussi ” branchement inconditionnel”. 
exemple: GOTO 19 signifie ” aller à la ligne 19”. 


— GOSUB. Il est appelé ”’appel de sous-programme” tandis que 
RETURN est ”’retour de sous-programme ”. 
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exemple : GOSUB 6 signifie ”’ aller à la ligne 69 en se rappelant 
d’où l’on vient RETURN signifie ”retourner d’où l’on vient”. 


— FOR … NEXT est appelé ” boucle”. Permet d’exécuter plusieurs fois 
de suite ce qui se trouve entre le FOR … et le NEXT. 
exemple: FOR V — 3 TO 7 STEP 2 signifie: exécuter pour V 
variant de 3 à 7 avec un pas de 2. NEXT V indique la fin de la 
boucle. Les ordres situés à l’intérieur de cette boucle seront exécutés 
trois fois. La première fois, V contient le nombre 3. La seconde fois, 
V contient le nombre 5. La troisième fois, V contient 7. 


— IF … THEN est appellé ”’exécution conditionnelle”. Si la condition 
écrite entre IF et THEN est satisfaite, alors on exécute les ordres 
situés après THEN. Si la condition n’est pas satisfaite, on passe 
directement à la ligne suivante. 
exemple : IF I > 3 THEN GOTO 29. Si le nombre contenu dans la 
variable I est plus grand que 3, alors on va à la libne 24. Si le nombre 
contenu dans I n’est pas plus grand que 3, on passe à la ligne 
suivante. 


Il existe d’autres ordres de branchements, que nous laissons de côté 
pour le moment car ils sont beaucoup moins importants. 


2.9. LES TABLEAUX 


Une variable numérique permet de stocker #n nombre. Lorsque l’on 
a plusieurs nombres à stocker on peut utiliser autant de variables qu’il y 
a de nombres. On peut aussi utiliser un tableau. On peut considérer 
qu’uri tableau est un tiroir divisé en petites cases, chaque case pouvant 
contenir un nombre. Comme pour les variables, le tiroir possède un nom, 
que l’on appelle le nom du tableau. Chaque case est repérée par un ou 
plusieurs numéros, que l’on nomme ”indices”. Pour utiliser un des 
nombres rangés dans le tableaux, il faut donner le nom du tableau suivi 
de ou des indices entre parenthèses. 


Exemple : Voici un programme utilisant un tableau, T, contenant cinq 
nombres : 
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19 DIM T(4) 

24 T(@) = 3: T(1) = 2: T(2) = 42 
38 T(3) = 25: T(4) — 199 

4ÿ FOR I = # TO 4 

58 PRINT T(I) 

69 NEXT I! 


L'ordre de la ligne 19, DIM T(4) précise à l’'ORIC-1 le numéro, 
l'indice de la dernière case du tableau T. IL faut savoir que le premier 
élément, la première case du tableau à toujours pour numéro, pour indice 
@. Ainsi, ce tableau T comporte-t-il 5 cases, 5 éléments, qui sont T(O), 
T(1), T(2), T(3) et T(4). 


A la ligne 29, on range des nombres dans les trois premiers 
éléments de T. 


À la ligne 30, on range deux nombres dans les deux derniers 
éléments de T. 


La boucle des lignes 49 à 6 affiche le contenu des éléments du 
tableau. En effet, la première fois que la boucle est exécutée, I contient ÿ, 
donc le contenu de T(@) est affiché. La seconde fois que la boucle est 
exécutée, I contient 1, donc le contenu de T(1) est affiché, etc. 


Dans l’exemple précédent, les éléments du tableau T étaient repérés 
par un indice. On peut utiliser plusieurs indices. Le nombre d’indices 
d’un tableau est appelé ”dimension du tableau”. 


Exemple: Voici un programme qui utilise un tableau à deux dimen- 
sions, c’est-à-dire que chaque case, chaque élément du tableau est repéré 
par deux indices. 


19 DIM A(3,3) 

28 FOR I = f TO 3 
39 FOR J = # TO 3 
49 A(J)=1%+) 

5f NEXT J 

68 NEXT I 


L'ordre de la ligne 19, DIM A(3,3) précise à l’'ORIC-1 les numéros, 
les indices du dernier élément du tableau. Comme chacun de ces indices 
débute à partir de @, le tableau A comporte 16 éléments qui sont A(,9), 
A(9,1), A(9.2), A(9,3), A(1,9), A(1,1), …, A(3,2) et A(3,3). 
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Les lignes 29 à 69 placent dans chaque élément du tableau un 
nombre égal au produit de ses indices. On a donc un début de table de 
multiplication. 


Tapez RUN pour faire exécuter le programme, qui remplit le 
tableau. Puis tapez: 


? A(2,3) 


L’ORIC-1 affiche le nombre contenu dans A(2,3), c’est-à-dire 6. 
Tapez : 


? A(3,3) 


L'ORIC-1 affiche le nombre contenu dans A(3,3), c’est-à-dire 9. 


Il existe aussi des tableaux pour les chaînes de caractères. Le 
programme suivant utilise un tableau pouvant accueillir 7 chaînes. 


19 DIM J$(6) 

28 J$(8) = LUNDI”: J$(1) = MARDI” 

34 J$(2) = MERCREDI”: J$(3) = JEUDI” 
49 J$(4) = VENDREDI”: J$(5) = SAMEDI” 
59 J$(6) = ‘’ DIMANCHE” 

69 FOR 1 = # TO 6 

78 PRINT J$(1) 

8g NEXT I 
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un 


2.10. RÉSUMONS UN PEU 


Pour vous aider à comprendre ce que sait faire un ORIC-1, voici 
petit résumé des notions fondamentales, qu’il importe de bien 


posséder. 
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L’ORIC-I est une machine. Il est totalement stupide est inintelligent. 


L’ORIC-1 est parfaitement obéissant. Ce qui signifie que si vous 
avez l’impression, que vous êtes persuadé, qu’il ne fait pas ce que 
vous lui demandez, VOUS avez tort. 


L’ORIC-I1 exécute des ordres. Ces ordres doivent lui être donnés 
dans son langage, le BASIC. 


Lorsque l’on tape simplement un ou plusieurs ordres, séparés par des 
:, ce ou ces ordres sont exécutés immédiatement lorsque l’on frappe 
la touche RETURN. Ceci est appelé ”exécution en mode immé- 
diat”. 

Lorsque l’on tape un numéro devant le ou les ordres, la frappe de la 
touche RETURN provoque le stockage en mémoire de toute la ligne. 
L’ensemble de toutes les lignes stockées s’appelle un programme. 
L'ordre RUN déclenche l’exécution des lignes stockées, en commen- 
çant par celle de numéro le plus bas. Ceci est appellé exécution en 
mode programme ”. 


Les lignes constituant un programme sont normalement exécutées 
dans l’ordre des numéros croissants. Les ordres de branchement 
comme GOTO, GOSUB, etc... permettent de modifier cet ordre. 


L’ORIC-1 est capable de manipuler des nombres et des mots, des 
chaînes de caractères. On peut stocker ur nombre dans une variable 
numérique. On peut stocker une chaîne de caractères dans une 
variable chaîne. 


Une variable est un tiroir, une case. Sur chaque tiroir se trouve une 
étiquette ou l’ORIC-1 inscrit un mot, le ”nom de la variable”. 
Chaque fois que vous utilisez un nom de variable, l'ORIC-1 retrouve 
le tiroir correspondant. 


2.11. UN PETIT DESSIN 


Après toutes ces explications d’ordre général, voici un petit 
exemple de programme. Il trace un dessin simple, formé de cercles. 
Tapez-le : 


19 PAPER Ÿ: INK 6: 1 = 1 

24 HIRES: PAPER #: INK I 
N=1:K=-9 

49 FORT = # TO 2 « PI STEP .1 

58 X = 19 x T x COS(T) 

68 Y = 19 x T x SIN(T) 

AR=TA2#+1 

89 CURSET 128 + X, 199 + Y, d: CIRCLER, 1 


: 
99 CURSET 129 — X, 199 — Y, 4: CIRCLER, 1 

188 MUSIC 1, K, N, # 

119 PLAY 1, 4, 1, 899 

1% N=N+TIFN > 12THENN=1:K=K+1 
139 NEXT T 

148 WAIT 899: 1=1+1:1F1 > 7 THENI=1 

159 GOTO 29 


Pour que ce programme soit exécuté, tapez l’ordre RUN. Pour 
stopper, frapper CTRL-C, puis pour effacer le dessin, utiliser l’ordre 
TEXT, puis taper LIST si l’on désire afficher le programme. 


On utilise les six variables suivantes: 
[ On y stocke un nombre, compris entre 1 et 7, qui représente la couleur 
de l'encre du dessin. 


N On y stocke un nombre, compris entre 1 et 12, qui représente la hauteur 
d'une note de musique, jouée par l’ordre MUSIC de la ligne 190. 


K On y stocke un numéro d'octave, qui est utilisé par l'ordre MUSIC de la 
ligne 199. 


On y stocke un nombre, compris entre @ et 2 n, qui est un angle. 


Le programme trace des cercles. R contient successivement les valeurs 
des rayons des cercles tracés. 


XetY sont utilisé pour stocker les coordonnées des centres des cercles qui sont 
tracés. 
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Voyons comment ce programme fonctionne : 


— ligne 19: PAPER rend l’écran noir tandis que INK 6 rend bleu ciel 
les textes affichés par l’ORIC-1. On place le nombre 1 dans la 
variable I. 


— ligne 20: Lorsque l’on met en marche l’ORIC-1, l’écran est utilisé 
pour afficher du texte uniquement. On peut aussi l’utiliser pour affi- 
cher des dessins, ce que nous allons faire. L’ordre HIRES indique à 
PORIC-1 que l’on va tracer un dessin. Après que HIRES ait été 
exécuté, l’écran est divisé en deux parties. La partie supérieure sert à 
afficher le dessin. La partie inférieure permet l’affichage de trois 
lignes de texte. 


249 points 
RE ed | 


_ point(9,9) point(239,9) 7 


partie dessin 290 points 


point(@,199) point(239,199) | 
"4 à 


partie texte | 3 lignes de 49 caractères 


La partie supérieure est constituée de 249 x 290 points, que l’on 
repère par des coordonnées. Le coin supérieur gauche est le point (9,9). 


La partie inférieure est constituée de trois lignes de texte, chaque 
ligne pouvant accueillir 49 caractères. 


Dans la partie texte, les messages apparaissent en bleu ciel sur fond 
noir. Par exemple, lorsque vous frappez CTRL-C pour stopper le 
programme, l’ORIC-1 affiche: 


BREAK IN … 
Ready 


40 


en bleu ciel sur fond noir. Ces deux couleurs, celle du texte et celle du 
fond de la partie texte, on été définies par les ordres PAPER ÿ et INK 6 
de la ligne 19. 


Puis, à la ligne 29, après HIRES, on trouve les ordres PAPER ÿ et 
INK I. La première détermine la couleur de l’écran dans la partie dessin, 
ici noir, tandis que la seconde fixe la couleur de l’encre du dessin. Au 
début du programme I contient le nombre 1. Le dessin sera donc rouge, 
car 1 est le numéro de cette couleur. 


— ligne 39: On place les nombres 1 dans la variable N et 9 dans K.. Les 
nombres placés dans N et K seront utilisée plus tard, à la ligne 199, 
avec l’ordre MUSIC 1, K, N, ÿ. 


— ligne 49: On a là le début d’une boucle. La fin de cette boucle se 
trouve à la ligne 139, où l’on a l’ordre NEXT T. Les lignes situées à 
l’intérieur de la boucle, c’est-à-dire les lignes 59 à 129, seront donc 
exécutées plusieurs fois desuite. La première fois, T contient 9. La 
seconde, T contient @.1. La troisième T contient @.2, et ainsi de suite. 
Il est à noter que l’ORIC-1 connaît par cœur la valeur du nombre r 
(3.14159265...), qu’il appelle PI. La boucle sera répétée jusqu’à ce 
que le nombre contenu dans T atteigne 2 7. 


A chaque fois que l’on exécute la boucle, on trace deux cercles et 
l’on joue une note de musique. 


— lignes 59 et 69: On effectue deux calculs,, dont les résultats sont 
rangés dans les variables X et Y. Ces résultats seront utilisés aux 
lignes 89 et 99. 


— ligne 79: On calcule T À 2 + 1 et l’on range le résultat dans la 
variable R. Ce nombre sera le rayon des cercles qui seront tracés par 
les ordres CIRCLE R, 1 des lignes 89 et 99. 


— ligne 89: Elle trace un cercle de rayon R et centre (129 + X, 199 + 
Y). Plus précisément, l’ordre CURSET 129 + X, 199 + Y; 9 définit 
la position du centre du cercle. CIRCLE R, 1 trace le cercle, dont le 
rayon est le nombre contenu dans R. 


— ligne 99 : Elle trace un cercle derayon R et centre (129 — X, 199 — Y). 
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Le centre du premier cercle est en (129 + X, 199 + Y). Le centre du 


second est en (129 — X, 199 — Y). Ces deux points sont symétriques 
par rapport au point (129, 199), qui est le centre de l’écran. 
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ligne 19: Pour produire une note de musique, il faut utiliser deux 
ordres, MUSIC et PLAY. L'ordre MUSIC 1, K, N, ÿ sert à spécifier 
la hauteur de la note qui va être jouée. Le nombre contenu dans K est 
le numéro de l’octave, compris entre Ÿ et 6. Le nombre contenu dans 
N est le numéro de la note dans l’octave, compris entre 1 et 12. Il 
y a en effet 12 notes dans un octave. 


ligne 119: L'ordre PLAY déclenche la note et spécifie sa durée. 


ligne 129: La première fois que la boucle est exécutée, N contient 1 
et K contient 9, la note jouée est la note 1 de l’octave Ÿ, qui est la 
plus basse de l’ORIC-1 sache produire. On ajoute 1 à N, qui contient 
maintenant 2. Comme le nombre contenu dans N n’est pas supérieur 
à 12, on n’exécute pas les ordres situés après le THEN. Ainsi, 
lorsque la boucle sera exécutée pour la seconde fois, la note jouée 
sera la note 2 de l’octave Q. La troisième fois, on jouera la note 3 de 
loctave . La douzième fois, on jouera la note 12 de l’octave Ÿ. Puis 
on ajoute 1 à N, qui contient le nombre 13. La condition N > 12 est 
alors réalisée, on exécute les ordres situés après THEN. C’est-à-dire 
que l’on met 1 dans N et que l’on augmente d’une unité le nombre 
stocké dans K, qui vaut donc 1. 

La note jouée après la note 12 de l’octave Ÿ sera donc la note 1 de 
l’octave 1. Comme il n’y a que 12 notes par octave, il faut passer à 
l’octave suivant lorsque l’on atteint la note numéro 12, il faut ajouter 
1 au numéro d’octave et reprendre 1 comme numéro de note. 


ligne 139: L'ordre NEXT T délimite la fin de la boucle. 


ligne 149: La boule est terminée, le dessin est achevé. On attend 
8 secondes (WAIT 899) pour vous laisser le temps de contempler. Le 
nombre contenu dans I sera utilisé à la ligne 29 pour définir la 
couleur du dessin. On ajoute 1 au nombre contenu dans I. Comme 
un numéro de couleur est un nombre au plus égal à 7, on vérifie que 
I n’est pas plus grand que 7. Si c’est le cas, on met 1 dans I. 


— ligne 159: On va en 29 et l’on recommence. La première fois I conte- 
nait le nombre 1, le dessin a été tracé en rouge. La seconde fois I 


contient 2, le dessin sera tracé en vert. 
Le dessin sera donc tracé en rouge (1 dans I) puis vert (2 dans D), 


puis jaune (3 dans I), puis bleu (4 dans I), puis violet (5 dans I), puis bleu 
ciel (6 dans D), puis blanc (7 dans I) et de nouveau rouge (1 dans I), vert, 


jaune, etc... 
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Entrons dans les détails 
du BASIC 


Notations 


L’ORIC-1 ne tolère pas la moindre faute d’orthographe Basic, la 
moindre erreur de syntaxe. Il importe donc de définir précisément les 
quelques notations employées. 


arg représente un argument numérique : nombre, variable, expression, 
arithmétique ou résultat de fonction, entier ou réel. 


arg$ représente un argument chaîne: chaîne entre ” ”, variable chaine 
ou résultat de fonction chaîne. 


ligne représente un numéro de ligne. Obligatoirement un nombre entier 
compris entre @ et 63999. 


nom représente un nom: suite de caractères alphanumériques (lettres 
ou chiffres) dont le premier est une lettre. 


nom$ suite de caractères alphanumériques (lettres ou chiffres) dont le 
premier est une lettre, suivie du caractère $. 
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3.1. TAPER ET CORRIGER: L'ÉDITEUR DU BASIC 


Pour corriger, modifier un programme, vous disposez des moyens 
suivants : 


— Vous pouvez faire afficher la totalité ou une partie du programme en 
mémoire : 
* L'ordre LIST affiche la totalité du programme. S’il est long, il 
défile sur l’écran et ne peut être lu. Frappez une fois la barre d’espace- 
ment et le défilement s’arrête. Pour obtenir la suite, frappez une 
touche quelconque. 
Si l’on frappe CTRL puis, sans lâcher CTRL, sur la touche C, on 
arrête aussi le défilement. Mais alors, le listage ne peut être repris. 
* L'ordre LIST ligne 1—ligne 2 affiche les lignes dont les numéros 
sont compris entre ” ligne 1” et ” ligne 2”. Le numéro ” ligne 1” doit 
être inférieur à ” ligne 2”. Par exemple, LIST 29-14 affiche toutes 
les lignes dont les numéros sont compris entre 29 et 149. 


*' L'ordre LIST ligne 1 affiche la ligne de numéro ” ligne 1”. Si rien 
n’est affiché, il n’y a pas de ligne portant ce numéro. 


— Vous pouvez détruire la totalité ou une partie du programme en 
mémoire. 
* L'ordre NEW efface la totalité du programme. Lorsqu'il y a déjà 
un programme en mémoire, que l’on désire en taper un nouveau, on 
utilise NEW pour détruire l’ancien. 
* Pour supprimer une ligne, on frappe son numéro puis la touche 
RETURN. En tapant par exemple 199 return vous détruisez la 
ligne 199 du programme en mémoire. 


— Vous pouvez corriger une ligne: 


* Si l’on retape une ligne, elle détruit et remplace celle qui avait le 
même numéro. Ceci est un moyen de corriger une ligne erronnée. 
* Ilest aussi possible de corriger une ligne sans avoir à la retaper. Il 
faut : 
a) Faire afficher la ligne sur l’écran, si elle n’y est pas (LIST). 
b) À l’aide des touches flèches, amener le curseur devant le 
numéro de la ligne. 
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c) Appuyer sur CTRL puis, sans lâcher CTRL, enfoncer la touche 
A. Le curseur se déplace vers la droite. Lâcher A et CTRL lorsque le 
curseur se trouve sur le premier caractère à corriger. Frapper le ou les 
caractères à corriger. De nouveau utiliser CTRL-A pour amener le 
curseur après le dernier caractère de la ligne. Enfin, frapper RETURN. 


Exemple : Tapez: 
NEW 


19 INK 3: PAPER 2 
CLS 


NEW efface le programme précédent, s’il y en avait en CLS efface 
l'écran. On désire remplacer le 3 par un ÿ. 


a) Taper: 


LIST return 


La ligne est affichée. 

b) Utiliser la touche { pour amener le curseur devant la ligne. 

c) Appuyer sur CTRL puis A. Lorsque le curseur se trouve sur le 
3, lâcher A. Lâcher CTRL et frapper @. Appuyer sur CTRL puis A. 
Lorsque le curseur se trouve après le dernier caractère de la ligne, 
lâcher A puis CTRL. Frapper : 


RETURN 


Pour vérifier, utilisez LIST. 
Les opérations a) et b) peuvent être exécutées par l’ordre EDIT. 
Tapez : 
EDIT 19 ’’return” 
La ligne 19 est affichée et le curseur est placé à sa gauche. 
— Si, tapant une ligne, vous vous appercevez d’une erreur avant d’avoir 
frappez RETURN, vous pouvez : 


* Frapper sur CTRL puis X. Ceci annule toute la ligne. Un back- 
slash (\) est affiché à la fin de la ligne, le curseur est placé au début 
de la ligne suivante. 
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*Frapper sur la touche DEL. Ceci annule et efface le dernier carac- 
tère. Si vous frappez une seconde fois sur DEL, l’avant dernier 
caractère est annulé, etc... 


Vous pouvez effacer l’écran. 

* Tapez CLS return. L'écran est effacé puis ” Ready” est affiché. 
* Frappez sur CTRL puis L. L’écran est effacé, ” Ready ” n’est pas 
affiché. 


Pour taper des lettres minuscules. 
Vous désirez taper la ligne: 


19 PRINT ‘Bonjour’ 


Taper 19 PRINT ”B. Puis frapper CTRL et T. Le mot CAPS, qui se 
trouve en haut à droite de l’écran, disparaît. Tapez sur les lettres 
ONJOUR. Frapper de nouveau CTRL et T, le mot CAPS réappa- 
raît. Frapper ” puis RETURN. 


En frappant CTRL puis T, on fait disparaître ou apparaître le mot 
CAPS situé en haut à droite de l’écran. Lorsque CAPS est présent, 
on obtient des lettres majuscules, lorsque CAPS est absent, on 
obtient des minuscules. 


Vous ne voulez plus voir le curseur : frappez CTRL puis Q. Pour le 
faire réapparaitre, frappez de nouveau CTRL puis Q. 


Vous ne voulez plus entendre un ”plop!” à chaque fois que vous 
enfoncez une touche. Frappez CTRL puis F. Pour retrouver le petit 
bruit, frappez de nouveau CTRL puis F. 


Pour ceux qui veulent en savoir plus et utiliser au mieux les flèches, 


CTRL-A et DEL, voici comment sont stockés, manipulés, les caractères 
que vous frappez. 


Il y a, quelque part dans les profondeurs de la mémoire de l’'ORIC- 


1, une zone qui sert à stocker temporairement les caractères de la ligne 
que vous êtes en train de taper. Cette zone peut accueillir jusqu’à 78 ca- 
ractères. Lorsque l’on met l’ORIC-1 en marche, la zone est vide. 


— Lorsque vous frappez un caractère ” normal” (lettre, chiffre, virgule, 
PP 


…) L’ORIC-1 accomplit deux actions: 
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* Il fait apparaître le caractère sur l’écran à l’endroit où se trouvait 
le curseur et déplace ce dernier vers la droite. 


* Il range le caractère dans la zone de stockage temporaire. 


Lorsque vous frappez la touche RETURN, l’ORIC-I est activé, il 
exécute l’action correspondant à la suite de caractères qui se trouve 
dans la zone de stockage temporaire. En clair, si vous avez tapé un 
ordre, il l’exécute, si vous avez tapé une ligne débutant par un 
numéro, il range la ligne dans sa mémoire de programme. Puis la 
zone de stockage est vidée, elle peut recevoir une nouvelle ligne. 


Lorsque vous frappez CTRL, puis X, un backslash (\) est affiché, la 
zone de stockage est vidée, les caractères que vous aviez frappé sont 
purement et simplement perdus, jetés à la poubelle. 


Lorsque vous frappez l’une des quatre flèches, le curseur se déplace, 
et le contenu de la zone de stockage n'est pas modifié. 


Lorsque vous frappez CTRL puis À, le caractère qui se trouvait sous 
le curseur est recopié dans la zone de stockage, puis le curseur est 
déplacé vers la droite. 


Lorsque vous frappez DEL, le dernier caractère placé dans la zone 
de stockage est éliminé. Le curseur est déplacé vers la gauche. 


Lorsque vous frappez CTRL-L, ou CTRL-T, ou CTRL-F, le 
contenu de la zone de stockage n’est pas modifié. 

Voici maintenant trois exemples, fort utiles en pratique, pour illus- 
trer cette explication. 

*Tapez : 


NEW return 
19 PAPER 2: INK 1 return 


A ce point vous décidez de supprimer l’ordre INK 1. Vous pourriez 
bien sur retaper la ligne. 


19 PAPER 2 return 


Ne le faites pas, ce n’est pas la meilleure méthode. Utilisez ? pour 
amener le curseur devant la ligne. Appuyer sur CTRL puis A. 
Lorsque le curseur se trouve sur :, lacher A puis CTRL. Frappez 
RETURN. Utilisez LIST pour vérifier la correction. En effet, en 


utilisant CTRL-A, vous avez recopié dans la zone de stockage le 
début de la ligne, c’est-à-dire les caractères 19 PAPER 2. Vous 
n’avez pas recopié la fin de la ligne. Aussi, lorsque vous frappez 
RETURN, l’ORIC-1 trouve la ligne 19 PAPER 2 dans la zone de 
stockage temporaire. Il détruit l’ancienne ligne 19 et la remplace par 
celle-ci. La correction est effectuée. 


* L'exemple précédent montrait comment supprimer un ordre situé 
à la fin d’une ligne. Voici maintenant comment ajouter un ordre à la 
fin d’une ligne. Tapez: 


19 1 = 1: 7} = 2 return 


Maintenant, on désire ajouter l’ordre K = 3 à la fin de la ligne 19. 
Utilisez ? pour placer le curseur devant laligne 19. Appuyez sur 
CTRL puis À, maintenez ces touches enfoncées jusqu’à ce que le 
curseur se trouve juste après le 2. Lacher alors A puis CTRL. Vous 
avez recopié ce qui est sur l’écran dans la zone de stockage. Tapez 
maintenant : K — 3. Les quatre caractères que vous venez de taper 
ont été ajoutés au contenu de la zone de stockage qui contient donc 
maintenant les caractères 19 I — 1: J — 2: K — 3. Frappez 
RETURN, cette ligne de programme est rangée dans la mémoire de 
programme et remplace l’ancienne ligne 19. Tapez LIST pour 
vérifier. 


* Nous allons maintenant voir comment supprimer un ordre situé au 
milieu d’une ligne. Tapez: 


19 PAPER 2: INK 1: INK Ÿ return 


On désire supprimer les caractères : INK 1. Utilisez t pour placer 
le curseur devant la ligne 19. Appuyez sur CTRL puis A, maintenez 
ces touches enfoncées jusqu’à ce que le curseur se trouve sur le 
premier :, lâchez alors A puis CTRL. A ce moment, on a recopié 
dans la zone de stockage les caractères 19 PAPER 2. Le caractère :, 
sur lequel se trouve le curseur, n’a pas été recopié. Enfoncez la 
touche — , relachez la lorsque le curseur se trouve sur le second :. 
Comme on l’a dit, les flèches déplacent le curseur sans modifier le 
contenu de la zone de stockage, qui ne contient toujours que les 
caractères 19 PAPER 2. Enfoncez de nouveau CTRL-A, jusqu’à ce 
que le curseur soit derrière le 9. Ceci a pour effet de recopier la fin de 
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la ligne : INK 9. Frappez RETURN et cette ligne est rangée dans la 
mémoire programme. Tapez LIST vous devez obtenir : 


19 PAPER 2: INK ÿ 


* Pour finir, le plus fort: ajouter un ordre au milieu d’une ligne. 
Tapez : 


19 1 = 1: K = 3 return 


On désire ajouter l’ordre J — 2 entre les caractères : et K. Avec !?, 
amenez le curseur devant la ligne 19. Enfoncez CTRL-A jusqu’à ce 
que le curseur soit sur le K, lâchez CTRL-A. Vous avez recopié les 
caractères 19 I — 1 : dans la zone de stockage. Frappez une fois sur 
À. Tapez J = 2:, puis frappez quatre fois sur + et une fois sur | 
Le curseur se trouve de nouveau sur K. Comme les flèches ne modi- 
fient pas le contenu de la zone de stockage, et que vous avez frappé J 
= 2:, on a maintenant les caractères 19 I — 1: J — 2: dans cette 
zone. Frappez CTRL-A jusqu’à ce que le curseur soit derrière le 3, 
pour recopier K — 3. On a maintenant 191 = 1:J—2:K — 3 dans 
la zone. Frappez RETURN, et cette ligne est rangée dans la 
mémoire de programme. 


LLIST : Listage sur imprimante. S’emploie comme LIST. 


3.2. COMMENTER LES PROGRAMMES 


Il est pratique de pouvoir introduire des commentaires, des 
remarques parmi les ordres d’un programme, pour faciliter sa lecture, sa 
compréhension. 


— Lorsque l’'ORIC-1 rencontre l’ordre REM, il ignore tout ce qui suit 
et passe à la ligne suivante. On peut donc taper ce que l’on veut 
derrière REM. 


Exemple : 


19 REM CECI EST UN PROGRAMME 
28 ZAP: REM ZAP EST UN BRUIT 
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— Le signe apostrophe (°), à ne pas confondre avec le guillemet (”), est 
une abréviation de : REM. Néanmoins, il ne peut être utilisé en début 
de ligne. 


Exemple : 


19 REM PROGRAMME 
29 ZAP ’ CECI EST UN BRUIT 


— Pour séparer les parties d’un programme, on peut insérer des lignes 
vides. Taper un numéro suivit de: 


Exemple : 


14 REM PROGRAMME 
3 ZAP 


Voici un exemple de programme bien commenté : 


19 REMAKE 


29 REM LE 2 *kx* 
39 REM *x* MULTIPLICATION PAR DEUX xx 
49 REM x*x ** 
59 REM »x AUTEUR J.Y. ASTIER ** 
68 REM xx ** 
74 REM xx 1/7/83 VERSION 1.9 ** 
89 REM xx ** 
Rs HIHI HIDE OO OK 
1 : 


119 REM DEBUT .DU TRAITEMENT 
129 INPUT N: PRINT 2 «x N ’ CALCUL 
. REM FIN DU TRAITEMENT 

149 : 

159 END ’ FIN DU PROGRAMME 


3.3. LE RANGEMENT DE PROGRAMMES 
SUR CASSETTES 


Lorsque l’on débranche l’ORIC-1, le programme qui s’y trouvait 


est effacé. Si vous désirez conserver un programme, vous devez l’enregis- 
trer sur une cassette. Il vous faut un magnétophone à cassettes, un 
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cordon de racordement et bien sûr une cassette. Le cordon comporte à 
une extrémité prise DIN à 7 broches qui se branche sur l’'ORIC-1, juste à 
côté du câble vidéo. A l’autre extrémité du cordon, il y a trois prises qui 
se branchent sur le magnétophone. La prise reliée à un fil rouge sert à 
enregistrer les programmes, et se branche sur l’entrée enregistrement 
(aux). La prise reliée au fil blanc sert à relire les programmes et se 
branche sur la sortie (monitor). Enfin, la prise reliée au fil vert se 
branche sur l’entrée de commande à distance (remote). Si le magné- 
tophone ne possède pas de prise de commande à distance, cela fonc- 
tionnera tout de même. 


a) Pour ranger, enregistrer un programme: l’ordre CSAVE arg$. 


Tout d’abord, positionnez la bande là ou vous désirez que débute 
l'enregistrement. Attention si vous êtes au début de la bande: si vous 
essayez d’enregistrer sur l’amorce, il vous manquera le début du 
programme, et l’'ORIC-I ne pourra rien relire. Puis: 


— Si vous possédez une commande à distance. Enfoncez la touche 
enregistrement, puis tapez: 


CSAVE ’’XYZ'’' return 


XYZ représente le nom du programme. A la place de XYZ, vous 
pouvez tapez jusqu’à 17 caractères, lettres, chiffres, points, etc. Le 
message : 


SAVING XYZ 


apparaît en haut à gauche de l’écran, le curseur cesse de clignoter et 
le magnétophone se met en marche. Il n’y a plus qu’à attendre. 
Lorsque l’enregistrement est terminé, le message SAVING XYZ 
disparaît, le magnétophone s’arrête, ” Ready ” est affiché. 


— Si vous ne possédez pas de commande à distance. Tapez: 


CSAVE ’’XYZ’' ne frappez pas return 


XYZ représente le nom du programme. Voir ci-dessus. Enfoncez la 
touche enregistrement du magnétophone, frappez alors RETURN. 


le message SAVING XYZ. 
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s’incrit en haut à gauche de l’écran, le curseur cesse de clignoter. 
Vous n’avez plus qu’à patienter en surveillant. Lorsque l’enregistre- 
ment est terminé, le message SAVING XYZ disparaît, et ” Ready” 
est affiché. Arrêtez le magnétophone. 


b) Pour recharger, relire un programme: l’ordre CLOAD arg$. 


Positionnez la bande avant le début du programme. Puis: 


— Si vous possédez une commande à distance. Enfoncez la touche 
lecture du magnétophone, tapez: 


CLOAD ‘’ XYZ” return 
XYZ représente le nom du programme à charger. Le message: 
SEARCHING... 


apparaît en haut à gauche de l’écran. Cela signifie que l’'ORIC-1 
cherche le début du programme. Lorsque le début est trouvé, le 
message devient : 


LOADING XYZ 


Lorsque l’opération est terminée, le message disparaît, le magnéto- 
phone s’arrête et ” Ready ” est affiché. 


— Si vous n’avez pas de commande à distance, tapez: 


CLOAD ’’XYZ'' return 
XYZ représente le nom du programme à charger. Le message: 
SEARCHING... 


apparaît en haut de l’écran. Enfoncez la touche lecture du magnéto- 
phone. ”SEARCHING ” signifie que l’'ORIC-1 cherche le début de 
programme. Puis le message est remplacé par: 


LOADING XYZ 


L’ORIC-1 est en train de relire le programme. Attendre que le 
message disparaisse et que ” Ready” soit affiché. Vous pouvez alors 
arrêter le magnétophone. 
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En général, on enregistre plusieurs programmes sur une cassette, et 
l’on repère le début de chaque programme grâce au compteur du magné- 
tophone. Avant de recharger on programme, vous pouvez rechercher le 
début du programme avec les touches d’avance rapide, en vous fiant au 
compteur. Dans ce cas l’ORIC-1 trouvera très rapidement le 
programme. Sinon, vous rembobinez la cassette. Si le programme à char- 
ger n’est pas le premier, les précédents seront. ignorés. 


Si vous avez oublié ou si vous ne connaissez pas le nom d’un 
programme à relire, utilisez l’ordre: 


CLOAD ‘”” 


Dans ce cas, l’'ORIC-I relira le premier programme qu’il rencon- 
trera. On peut aussi utiliser cet ordre pour relire le programme suivant de 
la bande. 


c) Les options S et AUTO. 


Les programmes sont normalement enregistré à une vitesse de 
2 490 bits/seconde. Si vous voulez être sur que votre programme soit 
correctement enregistré, utilisez : 


CSAVE "’XYZ”,S 


Le S signifie que l’enregistrement se fera à 39 bits/seconde. Cela 
prend donc 8 fois plus de temps que 2 499 bits/seconde, mais c’est plus 
suf. Pour recharger, vous devrez alors utiliser : 


CLOAD ’’XYZ”,S5 ou bien 
CLOAD ‘’”,5 


Si vous désirez que l’exécution du programme débute automatique- 
ment dès la fin du chargement, utilisez : 


CSAVE ”’ XYZ’, AUTO 
Pour recharger, simplement taper : 


CLOAD ’’XYZ” ou bien 
CLOAD ‘" 
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Vous pouvez utiliser les deux options simultanément : 


CSAVE ’’XYZ”,S, AUTO ou 
CSAVE ’’XYZ”', AUTO, S 


d) Si cela ne marche pas. 


A l'enregistrement, il n’y a jamais de problème, sauf si le cordon 
n’est pas correctement branché ou si vous essayez d’enregistrer sur 
l’amorce de la bande. 


A la relecture, l'ORIC-1 peut se planter”, c’est-à-dire qu'aucun 
message n’apparaît et que le curseur ne clignote plus. Essayez le bouton 
reset situé sous l’'ORIC-1. Si le mot ” Ready ” n’apparaît pas, débranchez 
l'alimentation de l’'ORIC-I1. 


Vous pouvez aussi obtenir le message d’erreur : 


FILE ERROR/LOAD ABORTED 


ce qui signifie ”’erreur de fichier/chargement interrompu”. Plusieurs 
causes sont possibles. 


— Le programme n’est effectivement pas enregistré correctement. 
Attention à l’amorce de la bande et au branchement du cordon. 


— Le programme a été enregistré avec l’option S, et vous n’avez pas 
spécifié cette option à la relecture, ou réciproquement. 


— Le réglage du volume du magnétophone n’est pas correct. Il doit 
normalement être à mi-course. Faire plusieurs essais avec des 
réglages différents. 


— Le magnétophone ne fonctionne pas correctement. D’abord, nettoyer 
la tête de lecture à l’alcool à 99°. Si cela ne suffit pas, démagnetiser 
cette tête et régler sa position. 


e) Quelques précisions supplémentaires. 


— N'importe quelle cassette, C 69 ou C 99 convient. Éviter tout de 
même les cassettes de très mauvaise qualité, où certaines parties de 
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la bande ne sont pas magnétisées. Vous pouvez aussi acheter des 
cassettes spéciales pour micro-ordinateur C 19 ou C 15. Ce sont en 
fait des cassettes ordinaires, de durée d’enregistrement limitée (19 ou 
15 minutes), ce qui facilite la recherche des programmes. 


— Vous pouvez sauvegarder des zones mémoires, en spécifiant 
l’adresse de début et l’adresse de fin. Utilisez : 


CSAVE ’’ZONE”’, À #49ÿ, E# 429 


# 400 est l’adresse de début, exprimée en hexadécimal. # 429 est 
l’adresse de fin. Pour recharger, utiliser : 


CLOAD ’’ZONE”, A # 499, E #42ÿ 
Vous pouvez aussi ajouter l’option S, pour plus de sécurité: 
CSAVE ’’ZONE”, A# 499, E#429,S 


Les zones mémoires que l’on peut sauvegarder peuvent être des 
programmes en langage machine, des jeux de caractères, des dessins 
en haute et basse résolution. 


CSAVE ’’TEXTE”’, A48999, E49119 ou bien 
CSAVE ’’TEXTE”’, AÆBB89, E# BFDF 


permettent de sauvegarder l’écran en mode TEXT ou LORES. 


CSAVE ‘DESSIN’, A49969, E49119 ou bien 
CSAVE DESSIN”, À # A999, E# BFDF 


permettent de sauvegarder l’écran en mode HIRES. 


CSAVE ’’CARACTERES/’, A47194, E47999 ou bien 
CSAVE ’’CARACTERES”’, À B899, E #BB7B 


permettent de sauvegarder le second jeu de caractères. 
— À la place d’une chaîne entre guillemet, on peut employer avec 


CSAVE et CLOAD un argument quelconque de type chaîne: 
variable chaîne, fonction chaîne, etc. 


Exemple : 


+ CLOAD A$ 
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charge le programme dont le nom est stocké dans la variable chaîne 


* 19 HIRES 


299 PRINT ’’POSITIONNEZ LA BANDE PUIS’ 
219 PRINT ‘DONNEZ LE NOM DU DESSIN’ 
229 INPUT A$ 

239 CSAVE A$, A49969, E49119 

249 END 


Cette fin de programme (lignes 299 à 249) sauvegarde l’écran en 
mode HIRES, on lui donne pour nom la chaîne placée dans la 
variable A$. 


3.4. LES VARIABLES ET LES TABLEAUX 


Le Basic de l’'ORIC-1 admet trois types de variables : les variables 
réelles, les variables entières et les variables chaïnes. 


— Les variables réelles permettent de stocker un nombre réel compris 
entre — 1.79141 198 et — 2.93874 19-*° ou entre 2.93874 19-* et 
1.709141 198. 


— 1.709141 19% — 2.93874 19-% 2.93874 19% 1.79141 19% 
) 


Les nombres compris entre — 2.93874 19-*? et 2.93874 19-*%° sont 
considérés comme nuls par l’ORIC-1, tandis que les nombres infé- 
rieurs à — 1.79141 19°8 ou supérieurs à 1.79141 19*8 provoquent un 
message ? OVERFLOW ERROR. 


Un nom de variable réel est une suite de lettres ou chiffres, le premier 
caractère étant obligatoirement une lettre. D’autre part un nom de 
variable ne doit pas comprendre un mot du langage Basic. 
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Exemples : 


Y234 
JOUR sont des noms corrects de variables réelles. 


* ZAP 3 ne peut être un nom de variable, car il contient le mot ZAP du 
Basic. 


— Les variables entières permettent de stocker un nombre entier 
compris entre — 32 767 et 32 767. Il est à noter que cela peut se faire 
avec une variable réelle. L'intérêt des variables entières est qu’elles 
utilisent moins de place mémoire que les variables réelles, et qu’elles 
sont pour l’ORIC-1 plus faciles à traiter. 


Un nom de variable entière est constitué comme un nombre de 
variable réelle que l’on ferait suivre du caractère %. 


Exemples : 


X% 
X1% 
JOUR% sont des noms de variables entières. 


Si l’on essaie de stocker un nombre réel dans une variable entière, le 
nombre est tronqué à l’entier inférieur. 


Exemples : 


* Tapez 
A% = 1.5 return 
? A% return 
L'ORIC-1 répond 1 


* Tapez 
A% = — 1.5 return 
? A% return 
L'ORIC-1 répond — 2 


— Les variables chaînes permettent le stockage d’une chaîne de ÿ à 255 
caractères au plus. 


Un nom de variable chaîne est constitué comme un nom de variable 
réelle que l’on ferait suivre du caractère $. 
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Exemples : 


A$ 
MOT$ 
V1$ sont des noms de variables chaînes. 


Les noms de variables réelles, entières ou chaînes peuvent compor- 


ter autant de caractères que l’on veut, en restant bien sûr dans la limite 
de la longueur maximale d’une ligne (78 caractères). Néanmoins, il ne 
faut pas oublier que l’'ORIC-1 ne prend en compte que les deux premiers 
caractères d’un nom de variable, ainsi que son type, réel, entier ou 
chaîne. 


Exemple : 


* 


+ 


XI1 et X12 sont de même type, réel et débutent par les deux mêmes 
caractères. Elles correspondent au même emplacement mémoire, au 
même tiroir. 


MOTS et MOIS sont de même type, chaîne et débutent par les deux 
mêmes caractères. Elles correspondent au même emplacement 
mémoire. 


Par contre VI et V1% sont bien distinctes. Bien qu’elles débutent par 
les deux mêmes caractères, elles ne sont pas de même type et l’'ORIC-1 
les distingue parfaitement. 


— Voyons maintenant les tableaux. On peut utiliser des tableaux réels, 


des tableaux entiers et des tableaux chaînes, qui servent à stocker des 
réels, des entiers et des chaînes respectivement. L’ordre DIM permet 
de dimensionner un tableau, c’est-à-dire définir sa dimension (le 
nombre d’indices) ainsi que la valeur maximale de chaque indice. 
Chaque indice peut varier de @ jusqu’à la valeur définie par l’ordre 
DIM. 


Exemples 


* DIM A(2,4,5) définit un tableau réel à trois dimensions. Le 
premier indice peut prendre les valeurs 9, 1 ou 2, le second peut 
valeur 9, 1, 2, 3 ou 4, le troisième peut valeur Ÿ, 1, 2, 3, 4 ou 5. Ce 
tableau comporte 3 x 5 x 6 — 9ÿ réels. 


* DIM A$(3,3) définit un tableau chaîne à deux dimensions 
comportant 4 xX 4— 16 chaînes. 
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Les noms de tableaux, réels, entiers ou chaïnes sont exactement 
constitués comme les noms de variables correspondantes. 


Exemples : 


* ABC(1,2) 
V1(3) sont des éléments de tableaux réels 


* N9%(8,4) 
S83%(1,2,4) sont des éléments de tableaux entiers 


* MOTS#(3) 
C$(1,1,1,1) sont des éléments de tableaux chaïines 


Vous pouvez avoir autant de dimensions que vous le désirez, en 
respectant toutefois les deux limitations suivantes : 


* La longueur de l’ordre DIM ne peut dépasser la longueur maximale 
d’une ligne, soit 78 caractères. 


* Le nombre total d'éléments d’un tableau est limité par la taille de la 
mémoire de l’ORIC-1, qui n’est pas infinie. Par exemple, un tableau 
réel ne peut contenir plus de 7 882 réels (ORIC-1 48 K). 


Si vous oubliez l’ordre DIM, l’ORIC-1 définit lui-même un tableau 
dès qu’il rencontre un de ses éléments. Dans ce cas, la valeur maximale 
de chaque indice est 19. 


Exemple: Considérons le programme: 


5 NEXT I 


Il n’y a pas d’ordre DIM dimensionnant le tableau réel A. Aussi 
PORIC-1 définit lui-même le tableau, il a deux dimensions et chacun des 
deux indices peut varier de @ à 19. Le tableau A comporte donc 11 x 
11 — 121 réels. 


Si vous ajoutez à ce programme la ligne: 


5 DIM A(3,9) 
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l'exécution se déroulera de la même façon. Par contre le tableau A ne 
comportera plus que 4 x 19 — 49 éléments. Dans le cas de cet exemple, 
ceci n’a pas d'importance. Mais lorsque vous écrivez un gros 
programme, utilisant plusieurs tableaux, vous ne pourrez pas gaspiller la 
place mémoire, il faudra employer l’ordre DIM. 


Un indice est normalement un nombre entier positif. Si vous utili- 
sez un nombre négatif, vous obtiendrez un message ? ILLEGAL 
QUANTITY ERROR. 


Si vous utilisez un nombre qui n’est pas entier, l’'ORIC-1 le tronque 
à sa partie entière. 


Exemple : Tapez: 
CLEAR : DIM A(3) return 


l’ordre CLEAR efface d’un seul coup toutes les variables et tous les 
tableaux de la mémoire de l’ORIC-I. Puis DIM définit le tableau A: 
une dimension, quatre éléments. 


Tapez: 
? A(-— 1) return 


Vous obtenez le message: ? ILLEGAL QUANTITY ERROR. 
Tapez: 


A(2) = 8 return 
? A(2.5) return 


L'ordre A(2) = 8 place le nombre 8 dans l’élément A(2). Puis vous 
tapez ? A(2.5). L'ORIC-1 commence par tronquer l’indice 2.5, il obtient 
2 et affiche alors le contenu de A(2). 


Dans l’exemple précédent, nous avons employé l’ordre CLEAR. 
On pourrait appeler cette ordre ”’lavage de cerveau”. Il efface de la 
mémoire de l’'ORIC-1 toutes les variables, tous les tableaux, entiers, réels 
ou chaines. Les nombres et les chaînes stockés sont perdus. Les noms de 
variables et tableaux sont oubliés. CLEAR est un moyen de mettre à 
zéro toutes les variables d’un programme. Il n’est pas possible, dans un 
programme, d’exécuter deux ordres DIM sur un même tableau, on 
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obtient un message ? REDIM’D ARRAY ERROR. Par contre, on peut 
dimensionner un tableau grâce à DIM, l’effacer avec CLEAR, puis utili- 
ser de nouveau DIM avec le même nom, car le tableau précédent a été 
effacé. 


Pour illustrer ce chapitre sur les variables et tableaux, voici un 
programme de tri de nombre réels: 


il REM TRI DE REELS 


34 PRINT ” COMBIEN Y-A-T-IL DE NOMBRES ” 
49 INPUT N% : IF N% < 2 THEN PING: GOTO 38 
nl DIM R(N%—1) 


74 PRINT DONNEZ ge NOMBRES 
89 FOR 1 = # TO N%-1: INPUT R(I): NEXT I 


99 : 

199 FOR 1 = Ÿ TO N%—2 

119 FOR J = 1 + 1 TO N%-—1 

124 IF R(I) = < R(J) THEN 149 

139 MEM = R(1): R(1) = R(J): R(J) = MEM 
149 NEXT J 

159 NEXT | 

164 : 

Le FOR 1 = Ÿ TO N%—1: PRINT R(I): NEXT I 
18 


199 PRINT ENCORE? (O/N)” 

299 INPUT A$ 

219 IF A$ < > ”’O”’ AND A$ <> N°’ THEN 199 
229 IF A$ = ‘’O’”’ THEN CLEAR: GOTO 38 


A la ligne 49, on utilise une variable entière N%. En effet, un 
nombre de données est un entier. Pour pouvoir faire un tri, il faut au 
moins deux nombres. On vérifie donc que le nombre contenu dans N% 
n’est pas inférieur à 2. 


A la ligne 54, on définit un tableau qui va accueillir les réels à trier. 
Comme les indices des tableaux débutent à partir de Ÿ, DIM R(N%—1) 
définit un tableau contenant exactement N% réels. 


A la ligne 89, on lit les nombres à trier, on les range dans le tableau 
R. 


Le tri est effectué aux lignes 199-159. Chaque élément du tableau, 
d'indice I, est comparé à tous les éléments suivants, indice J variant de 
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I + 1 à N%—1. Si le contenu de R(I) est inférieur ou égal à celui de R(J), 
on ne fait rien, on va en 149 (ligne 129). Sinon, à la ligne 139, on 
permute les nombres contenus dans R(I) et R(J). 


A la ligne 179, on affiche le contenu du tableau trié. 


A la ligne 199, on demande à l’utilisateur s’il désire recommencer, 
sa réponse est lue et stockée dans la variable A$ à la ligne 29. Si cette 
réponse n’est ni la lettre ”O” ni la lettre N°”, on retourne en 19ÿ 
(ligne 219). Si cette réponse est la lettre ”O ”, on efface les variables et le 
tableau et on va en 39 (ligne 229). 


Si l’on répond ”O”, l’ordre DIM R(N%—1) de la ligne 59 sera 
exécuté une seconde fois. Si le tableau R n’avait pas été effacé par l’ordre 
CLEAR de la ligne 229, on aurait obtenu le message ? READIM’D 
ARRAY ERROR. 


3.5. LES ORDRES DE CONTRÔLE DU SYSTÈME ORIC-1 


RUN : Utilisable en mode immédiat ou en mode programme. Déclenche 
l’exécution du programme Basic en mémoire. Toutes les variables, 
tous les tableaux sont effacés, puis on se branche à la première 
ligne du programme, l’exécution commence. 


RUN ligne 1: Utilisable en mode immédiat ou en mode programme. 
Déclenche l’exécution du programme Basic à partir de la ligne de 
numéro ” ligne 1”. Les variables, les tableaux sont effacés, on se 
branche à la ligne ” ligne 1 ”, l’exécution commence. 


END: Utilisable en mode immédiat ou en mode programme. Dans un 
programme, un ordre END arrête l’exécution, puis ” Ready” est 
affiché. Un ordre CONT permet de relancer l’exécution là où elle 
s'était arrêtée. 

Exemple: Tapez: 


19 PRINT ’’AAAAA 
24 END 

34 PRINT ’’BBBBB” 
RUN 
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L’ORIC-1 affiche ” AAAAA ”, rencontre l’ordre END, l’exécution 
est arrêtée. Tapez alors: 


CONT 


L’exécution reprend, ” BBBBB ” est affiché. 


STOP : Utilisable en mode immédiat ou en mode programme. Identique 
à END), à la différence qu’un message ” BREAK IN …” est affiché 
avant ” Ready ”, indiquant le numéro de la ligne où l’ordre STOP a 
été rencontré. CONT permet de reprendre l’exécution. 


Exemple : Tapez: 


19 PRINT ‘’AAAAA 
28 STOP 

34 PRINT ‘’BBBBB” 
RUN 


L’ORIC-1 affiche ” AAAAA ”, rencontre l’ordre STOP, l’exécution 
est arrêtée, le message BREAK IN 2 est affiché. Tapez: 


CONT 


L’exécution reprend, ” BBBBB” est affiché. 


L'ordre STOP est utilisé devant la phase de mise au point d’un 
programme, pour vérifier son fonctionnement. Ayant tapé un 
programme, on lui ajoute des ordres STOP aux endroits ” stratégiques ”, 
puis on lance l’exécution (RUN). Le programme s’arrête, en affichant le 
numéro de la ligne ou STOP a été rencontré. Grâce à des commandes 
PRINT utilisées en mode immédiat, on peut faire afficher le contenu de 
certaines variables. Si tout est correct, CONT relance l’exécution 
jusqu’au prochain STOP. 
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Exemple: Le programme suivant calcule la moyenne des N premiers 
nombres entiers. 


59 : 
68 MOY = S/N: PRINT MOY 


Ce nombre calcule d’abord la somme S des N premiers nombres, 
puis calcule la moyenne MOY = S/N. On ajoute la ligne: 


45 STOP puis on tape 
RUN 


Le programme, l’ordre INPUT N affiche un ?. Tapez: 
5 return 


Le programme calcule la somme des cinq premiers entiers puis 
s'arrête en affichant BREAK IN 45. Tapez alors: 


PRINT S, N return 


pour vérifier les valeurs contenues dans S$ et N. Il doit y avoir 15 et 5. 
Tapez alors: 


CONT return 

Le programme reprend, calcule MOY puis l’affiche, on obtient 3. 
CTRL-C : En frappant sur CTRL, puis, sans lâcher CTRL, sur C, vous 

interrompez un programme en cours d'exécution. Un message 


BREAK IN … vous indique le numéro de la ligne où le programme 
a été interrompu. CONT reprend l’exécution. 


Exemple: Tapez: 


49 NEXT J 
59 NEXT | 
RUN 
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Frappez CTRL-C. Il est très probable que vous obteniez le message 
BREAK IN 39. Tapez: 


? 1, J return 


Ceci affiche les nombres contenus dans I et J, on peut ainsi voir à 
quel point de son calcul le programme est arrivé. Tapez: 


CONT 


et le programme reprend. Vous pouvez de nouveau frapper CTRL-C ce 
qui interrompra de nouveau le programme. 


CTRL-C sert aussi à interrompre un listage en cours (LIST) 


CONT: Utilisable en mode immédiat. Reprend une exécution arrêtée 
par END, STOP ou CTRL-C. 


CLEAR : Utilisable èn mode immédiat ou en mode programme. Efface 
les variables et les tableaux. Voir 3.4. 


NEW: Utilisable en mode immédiat ou en mode programme. Efface le 
programme Basic, les variables, les tableaux. 


WAIT arg: Utilisable en mode immédiat ou en mode programme. 
* WAIT ” signifie ” attendre”. L’argument ”arg ” précise le nombre 
de centièmes de secondes qu’il faut attendre. 


Exemple : Tapez: 
WAIT 1998 return 


L’'ORIC-1 attent 19 centièmes de secondes, c’est-à-dire 
19 secondes avant d’afficher ” Ready”. 


Cet ordre peut par exemple être utilisé dans un programme après 
un ordre PRINT, pour laisser le temps à l’utilisateur de lire ce qui a été 
affiché. 
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Exemple : 


19 FOR 1 = 1 TO 199 
28 PRINT I'WAIT 58 
34 NEXT I 


TRON: Utilisable uniquement en mode programme. Lorsqu’un 
programme échappe à votre contrôle, qu’il fait ce qu’il veut et non 
pas ce que vous voudriez qu’il fasse, vous pouvez ajouter un ordre 
TRON dans le programme. TRON est une abréviation de 
TRACE ON”, ce qui signifie ”’suivre à la trace”. Après 
l'exécution de TRON, à chaque fois que l’'ORIC-1 exécute un 
ordre, il affiche entre crochets le numéro de ligne de cet ordre. 


Exemple: Tapez: 


19 TRON 

24 ZAP: WAIT 194 
34 PING: WAIT 199 
4ÿ EXPLODE 

RUN 


L'ORIC-1 affiche alors: 


[241 [241] [39] [39] [49] 


Le premier [29] correspond à ZAP, le second [29] à WAIT 149, le 
premier [39] correspond à PING, etc... 


TROFF: Utilisable uniquement en mode programme. Annule l’ordre 
TRON 


3.6. LES ORDRES D'ENTRÉES/SORTIES 
Il s’agit des ordres permettant d’entrer ou sortir des données, des 


résultats d’un programme. C'est-à-dire principalement des ordres 
INPUT (entrée) et PRINT (sortie). 
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INPUT variable 1, variable 2, …: Utilisable seulement en mode 


programme, permet la lecture de données. Lorsqu'un ordre INPUT 
est rencontré, un point d’interrrogation est affiché, et l’'ORIC-1 
attend que vous tapiez autant de données, séparées par des virgules, 
qu’il y a de variables derrière INPUT. Après que vous ayez frappé 
return”, les données sont lues et rangées dans les variables. Si l’on 
a une variable chaîne, il faut taper une chaîne, si l’on a une variable 
numérique, taper un nombre. 


Exemple : 


19 INPUT V, A$, Gh, T(3) 


INPUT ” chaîne” ; variable 1, variable 2, … : Identique au précédent sauf 


que ” chaine” est affiché avant le point d’interrogation. 


Exemple : 


19 INPUT ’’DONNER V’'; V 


imprime le message DONNER V, avant de lire une valeur. 


Particularités : 


* 


Si vous tapez moins de données qu’il n’y a de variables, ne croyez pas 
vous en tirer à si bon compte. L’ORIC-1 affiche un nouveau point 
d’interrogation et vous demande les données manquantes. 


Si vous tapez plus de données qu’il n’y a de variables, l'ORIC-1 lit les 
premières données, les affecte aux variables, ignore les données 
restantes, affiche le message ? EXRA IGNORED et poursuit 
l'exécution du programme. 


S’il y a une variable numérique et que vous tapez quelque chose qui ne 
soit pas un nombre correctement formé, le message ? REDO FROM 
START est affiché. Il faut retaper les données. 


S’il y a une variable chaîne, INPUT accepte n’importe quoi (sauf 
CTRL-C). Cela est très pratique. 
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Exemple : 


19 INPUT DONNER V’’; A$ 
28 IF A$ = ’’ZUT”’ THEN END 
34 V = VAL(A$) 

49 PRINT V A 2: GOTO 19 


Ceci permet de lire V et d’arrêter l’exécution si l’utilisateur a tapé le 
message ZUT. A la ligne 19, on lit une chaîne. En 29, on stoppe si la 
chaine lue est ZUT. Sinon on convertit la chaîne en un nombre à la 
ligne 39. 


* Au lieu de taper les données, vous pouvez utiliser les quatre flèches, 
CTRL-A et DEL pour recopier des caractères affichés, si bien sûr ils 
correspondent à ce que vous voulez entrer. 


PRINT : Cet ordre est utilisable sous plusieurs formes différentes. Dans 
tous les cas, PRINT est utilisable en mode immédiat et en mode 
programme. Le caractère ? est une abréviation du mot PRINT. 


PRINT : Provoque un saut de ligne. Utile lorsque l’on veut insérer des 
lignes vides dans un texte affiché. 


Exemple : 


19 PRINT ‘AVANT LA LIGNE VIDE” 
28 PRINT 
34 PRINT ’’ APRES LA LIGNE VIDE” 


PRINT expression: Imprime ”expression ”, c’est-à-dire: 


— Si ” expression” est une variable numérique, on affiche le nombre qui 
y est stocké. 


Exemple: Tapez: 


V = 4: PRINT V return 


L'ORIC-1 affiche le nombre contenu dans V, ici 4. 


— Si ”expression” est une variable chaîne, on affiche la chaîne qui y 
est stockée. 
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Exemple: Tapez: 


A$ = ‘BONJOUR’: PRINT A$ return 
L’'ORIC-1 affiche la chaîne stockée dans A$, ici BONJOUR. 


Si ”expression” est un nombre ou une chaîne, on affiche ce nombre 
ou cette chaine. 


Exemples : Tapez: 


PRINT 3 return 
PRINT ’’CINQ"’’ return 


Si ”expression” est une expression arithmétique, on affiche sa 
valeur. 


Exemples: Tapez : 


PRINT 4 + 3 » 5 return 
V = 6: PRINT 7 *« V return 


Si expression ” est une expression logique, on imprime sa valeur, 
c’est-à-dire @ si elle est fausse, — 1 si elle est vraie. 


Exemples: Tapez : 


PRINT 3 > 5 return 
PRINT 5 > 3 return 


L'expression 3 > 5 est fausse, sa valeur est nulle. Par contre, 5 > 3 
est vrai, sa valeur vaut — 1. 


PRINT expr 1, expr 2, expr 3, …: ”’expr 1”, ”’expr 2”, ”’expr 3”... sont 
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affichés suivant les règles précédents, trois espaces les séparent à 
chaque fois. 


Exemples : Tapez: 


PRINT "A, B", NE LA 
PRINT UN”, DEUX”, TROIS” 


Les chaînes sont séparées les unes des autres par trois espaces. 


Particularité : 


* Chaque fois que l’ORIC-1 affiche une quantité numérique, constante 
ou variable, il ajoute un espace derrière elle. Aussi, si vous tapez: 


PRINT 1, 2, 3 return 
= 1: ] = 2: PRINT |, J return 


Les nombres affichés seront séparés par quatre espaces: chaque 
nombre est normalement suivi d’un espace, auquel il faut ajouter trois 
espaces dus à la virgule. 


PRINT expr 1; expr 2; expr 3; …: Identique au précédent, sauf qu’au- 
cun espace n’est ajouté entre les quantités à afficher. C’est la forme 
la plus utilisée de l’ordre PRINT, car elle laisse au programmeur la 
maîtrise totale du format d’impression. 


Exemple : 
A$ = ’JOUR ‘’: PRINT ‘BON’; A$ return 


Les deux quantités sont affichées sans qu’aucun espace ne les 
sépare, on obtient BONJOUR. 


Particularités : 


* Lorsque l’on affiche des chaînes et des variables chaînes, on peut 
omettre les ; 


Exemple : 


A$ = JOUR”: PRINT BON” A$ return 


* Chaque fois que l’'ORIC-1 affiche une quantité numérique, constante 
ou variable, il ajoute un espace derrière elle. Si vous tapez: 


PRINT 1; 2; 3 return 
= 1: } = 2: PRINT I; J return 


Les nombres affichés seront séparés par un espace, qui est l’espace que 
l'ORIC-1 ajoute après chaque nombre qu’il affiche. En utilisant la 
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fonction STR$, on peut supprimer cet espace. Tapez: 


PRINT STR$(1); STR$(2); STR$(3) return 
[= 1: } = 2: PRINT STR$(I); STR$(J) return 


Il n’y a plus d’espace entre les nombres affichés. 
SPC(arg): Ceci s'emploie exclusivement après un ordre PRINT. Affiche 
7 arg” espaces. 


Exemple: Tapez: 


PRINT "x; SPC(19); +" 


Ceci affiche un caractère +, 10 espaces et de nouveau *. 


Si vous tapez: 


1 = 2: PRINT 1; SPC(2); ‘x’ return 


L’ORIC-1 affiche le nombre 2 suivi de l’espace qu’il ajoute après 
tout nombre, puis deux espaces correspondant à SPC(2), puis *, Il y a 
donc trois espaces entre 2 et x. 


TAB(arg) : Ceci s'emploie exclusivement après un ordre PRINT, comme 
SPC. Actuellement (ORIC EXTENDED BASIC V1.) ceci a 
exactement le même effet que SPC(arg-13). Cet ordre ne sert à rien. 
Normalement, TAB devrait effectuer une tabulation, c’est-à-dire 
amener le curseur dans la colonne de numéro ” arg ”. Malheureuse- 
ment, cela ne marche pas. 


Voici pour terminer les explications sur PRINT, un programme 
affichant un tableau: 
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19 DIM T(19,2), T$(2) 
24 : 


39 REM REMPLISSAGE DU TABLEAU 

4ÿ L = 19 

58 FOR 1=#TOL 

68 T(1,9) = 1 + 1: T(I,1) =2%1 

78 T(1,2) = T(1,9) + T(1,1) 

88 NEXT I 

99 T$(9) = ’’X°’: T$(1) = ’Y’’: T$(2) = ’X + Y”’ 
194 : 


119 REM AFFICHAGE DU TABLEAU 
129 CLS: GOSUB 299 


139 END 

148 : 

299 REM S—PROG AFFICHAGE 

219 L$ — MELLLLLLLLLLLLLLLELETA : E$ — de 1 
229 PRINT L$; L$ 

234 : 


249 FOR 1 = # TO 2 

259 PRINT E$; SPC (6-LEN (T$(1))); 
269 PRINT T$(l); SPC(4); 

279 NEXT l: PRINT E$ 


288 : 
298 PRINT L$; L$ 
99 . 


309 : 

319 FOR J=-#TOL 

329 FOR 1 = # TO 2: A$ = STR$(T(J,1)) 

339 PRINT E$; SPC(7-LEN(A$)); A$; SPC(4); 
349 NEXT l: PRINT E$ 

359 NEXT } 

364 : 

379 PRINT L$; L$ 

389 RETURN 
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Vous devez obtenir ceci, après avoir exécuté RUN: 


Ne ee he he he he ke fe ee fee fe fe fe fe me 2e me ee of fe fe me fe fe eme me fee fe fe fe fe fe me fe fe fe fe fe fe me ae me me ae fe ee fe ee fe fe fe fe fe 


* 


X 


* 


* 


ke ete ke ke ee ke ee ke 2e fe fe ee fe me fe ok me fe me of fe ae of fe fe 2e fe ae ae fe fe fe ef fe of fe me fe fe fe ae ae of fe moe fe fe me fe fe me ae me fe ke 2e 


OO OK OX OX XX XX OX % % OX X % + 


1 
2 
3 
4 
5 
6 
7 
8 
9 
19 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 


HO OK OK OÙ À Ù À D NX XX XX XX + 


Y id X+Y 
! . 1 
2 . 4 
4 + 7 
6 . 19 
8 Le 13 

19 * 16 

12 à 19 

14 * 22 

16 : 25 

18 *# 28 

20 ie 31 

22 Le 34 

24 é 37 

26 * 49 

28 # 43 

30 * 46 

32 ; 49 

34 di 52 

36 x 55 

38 : 58 


Æ 6 OÙ OÙ OÙ Ù 6 D  Ù D NX X + 


KA K OK Ke ee ok ee ke 2e fe ok Ke fe ke of fe fe fe ok ke fe fe 2 ke fe ke fe oo fe fe fe fe ok ke fe fe ae fe fe me fe fe ook of ke 2e 2e fe fe ke ce 2e 
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A la ligne 219, la chaîne L$ contient 17 «, 


La ligne 229 affiche deux fois L$, on obtient donc 34 caractères x. 


Les lignes 249 à 279 affichent la seconde ligne du tableau. Ne pas 
oublier les ; situés à la fin des lignes 259 et 269. Grâce à eux, toutes 
les quantités affichées dans la boucle 249-279 seront sur la même 


ligne. 


La ligne 299 affiche 34 caractères *, c’est la troisième ligne affichée. 


Les lignes 319 à 359 affichent le contenu du tableau. J est le numéro 


de la ligne affichée, I le numéro de colonne. 


La ligne 379 affiche la dernière ligne du tableau, 34 caractères *. 


LPRINT : Ordre d'impression sur imprimante. S’utilise exactement 
comme PRINT. Il faut que l’imprimante soit branchée et en ligne 
(on line) lorsque cet ordre est exécuté. 


READ-DATA-RESTORE : L'ordre INPUT permet de lire des données, 
provenant de l’extérieur d’un programme, tapées par l’utilisateur. 
L'ordre READ permet de lire des données situées dans un 
programme, derrière un ordre DATA. Prenons tout de suite un 
exemple : 


19 DIM A(9) 

28 FORI=#TO9 
34 INPUT A(1) 

49 NEXT I 


Ce programme, grâce à INPUT, lit 19 nombres en les rangeant 
dans le tableau A. Supposons que ces nombres soient toujours les 
mêmes. Plutôt que de refrapper à chaque fois les mêmes données, vous 
pouvez les placer derrière des ordres DATA et les lire avec READ. 


19 DIM A(9) 

28 FORI=#TO9 
34 READ A) 

4g NEXT I 

199 DATA 1, 3,7,2,9 
119 DATA 2, 4, 6, 8,5 
204 


218 FOR 1=#TO 9 
224 PRINT A": 1: ”)="; A(I) 
239 NEXT I 


DATA : Suivi d’une suite de constantes entières, réelles ou chaînes. Cet 

ordre crée une liste d’éléments destinés à être lue par un ordre 
READ. Utilisable seulement en mode programme. 
Lorsqu'il y a plusieurs ordres DATA dans un programme, les 
données ne forment qu’une seule liste, dont les premiers éléments 
sont deux de l’ordre DAT A de plus faible numéro de ligne, dont les 
derniers éléments sont ceux de la commande DATA de numéro le 
plus élevé. 
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Exemple : 


1999 DATA 1, COUCOU”, 2, 3 
1919 DATA 1.5, 8 
1928 DATA ‘’’GRR 


définissent la liste 1, ’COUCOU”, 2, 3, 1.5, 8, ’GRR”. 


Les ordres DATA peuvent être placés n’importe ou dans un 
programme. 


Particularités : 


* Lorsque l’on place des chaînes derrière des ordres DATA, on peut 
omettre les guillemets. Mais alors, les blancs sont alors ignorés. 


Exemple : 
1999 DATA A, ABAISSEMENT, ABAISSER 


est permis. 


* On peut avoir des éléments vides dans une liste DATA: 
— un ordre DATA seul crée un élément vide. 
exemple: 19 DATA crée une liste à un élément vide, 
— une virgule juste après DATA crée un élément vide. 
exemple: 19 DATA, 1, 2 crée la liste vide, 1, 2, 

— deux virgules successives créent un élément vide. 
exemple: 19 DATA 1, 2 crée la liste 1, vide, 2, 


— une virgule en fin de ligne donne un élément vide. 
exemple: 19 DATA 1, 2, crée la liste 1, 2, vide. 


Un élément vide peut être interprété comme une chaîne vide ou un 
nombre nul. Dans tous les cas, un ordre DATA suivi de N virgules 
engendre N + 1 éléments, vides ou non. 


READ variable 1, variable 2, …: Utilisable en modes immédiat et 
programme. READ lit autant d’éléments de la liste DATA qu’il y a 
de noms de variables, et range ces éléments dans les variables. A 
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une variable chaîne doit correspondre un élément chaîne, à une 
variable numérique seul un nombre doit être affecté, comme dans le 
cas d’un ordre INPUT. Chaque élément est lu une fois, à chaque 
fois que l’on exécute un ordre READ), on lit les premiers éléments 
qui n’ont pas encore été lus. 


Exemple : 


19 DATA JANVIER, 31, FEVRIER, 28 

28 DATA MARS, 31, AVRIL, 34, ‘MAI, 31 
34 DATA JUIN, 36, JUILLET, 31, AOÛT, 31 
49 DATA SEPTEMBRE, 34, OCTOBRE, 31 


A DATA NOVEMBRE, 36, DECEMBRE, 31 
79 FOR M = 1 TO 12 

84 READ M, ] 

99 PRINT M$: "A ";]J; "JOURS” 

199 NEXT M 

114 : 

129 PRINT 

139 PRINT ’’LES ANNEES BISSEXTILES, ’’ 
149 PRINT ’’FEVRIER A 29 JOURS" 


L'ordre READ de la ligne 89 est situé dans une boucle FOR- 
NEXT, et va lire toute la liste DATA. La première fois on lit JANVIER 
qui est rangé dans la variable chaîne M$ et 31 qui est rangé dans J, 
variable réelle. La seconde fois que READ est exécuté, on lit les 
premiers éléments qui n’ont pas encore été lus, c’est-à-dire FEVRIER et 
28, qui sont rangés dans M$ et J. 


Particularités : 


* Si vous essayez de lire plus d’éléments qu’il n’y en a dans la liste, vous 
obtiendrez le message ” OUT OF DATA ERROR ” (plus de DATA). 


* A l’inverse de l’ordre INPUT, une instruction READ ne peut ranger 
un nombre dans une variable chaîne. 


RESTORE: Utilisable en modes immédiat et programme. Dans sa 
mémoire, l’'ORIC-1 possède un emplacement mémoire dont le 
contenu, appellé ” pointeur ”, lui indique quel est le premier élément 
de la liste DATA qui n’a pas encore été lu. L’ordre RESTORE 
replace le pointeur sur le premier élément de la liste. C'est-à-dire 
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qu'après avoir exécuté un ordre RESTORE, un ordre READ lira 
ou relira le premier élément de la liste DATA. 


Exemple : 


19 DATA LUNDI, MARDI, MERCREDI 
28 DATA JEUDI, VENDREDI, SAMEDI 
. DATA DIMANCHE 


59 PRINT ’DONNER UN NOMBRE ENTRE 1 et 7’’ 
69 INPUT N 

ZÂIFN< TORN > 7 THEN PING: GOTO 5% 
88 FORI=1TON 

99 READ J$ 

199 NEXT | 

119 PRINT J$ 

124 : 

139 RESTORE 

149 GOTO 54 


Tapez RUN. Le programme vous demande un nombre. Tapez 2. 
La boucle 89-199 s’exécute deux fois, on lit les deux premiers éléments 
de la liste. Aussi, à la ligne 119, la variable J$ contient le mot MARDI. 
Puis RESTORE replace le pointeur sur LUNDI, on se branche en 59. 
Tapez 1. La boucle 89-199 s’exécute une fois, on relit le premier élément 
de la liste. En 119, J$ contient maintenant le mot LUNDI. Tapez CTRL- 
C pour stopper. 


Tapez 134 return. Ceci détruit la ligne 139 et l’ordre RESTORE. 
Exécutez de nouveau le programme (RUN). Tapez 2. Comme précédem- 
ment vous obtenez MARDI comme réponse. Tapez 1. Cette fois, le poin- 
teur n’a pas été replacé au début de la liste, et on lit le premier mot qui 
n’a pas été lu, c’est-à-dire MERCREDI que vous obtenez pour réponse. 


GET nom1$, nom2$, …: Cet ordre ne peut s’utiliser qu’en mode 
programme. Lecture d'un caractère. Lorsque vous frappez une 
touche, ce caractère est immédiatement rangé dans la variable 
nom1$,. vous frappez une seconde touche et ce caractère est immé- 
diatement rangé dans nom?2$, etc. Pas besoin de frapper 
RETURN. Le caractère correspondant n'est pas affiché. 


78 


Exemples : 


* A l’intérieur de l’'ORIC-1, chaque touche du clavier, chaque caractère 
est repéré par un numéro, appelé ”’code ASCII”. Le programme 
suivant donne ces codes, ces numéros: 

19 PRINT ’’FRAPPER UNE TOUCHE” 
24 GET A$ 


34 PRINT ”’ CODE ASCII =”; ASC(A$) 
48 IF ASC(A$) < > 32 THEN 19 


Tapez RUN return. Le message de la ligne 19 est affiché, on passe à la 
ligne 29. L’ORIC-1 s’arrête, il attend que vous frappiez une touche. 
Frappez la touche A. Immédiatement, sans que vous frappiez 
RETURN, un ” A” est rangé dans la variable A$ et on passe à la 
ligne 39. ASC(AS$) donne le numéro, le code ASCII du caractère rangé 
dans A$, ici on obtient 65. La touche ESC a pour code 27, DEL a 
pour code 127, CTRL-A a pour code 1, CTRL-C a pour code 3, 
RETURN a pour code 13. Il est à noter que pour GET, CTRL-C et 
RETURN sont des touches comme les autres. En particulier, CTRL- 
C n'’interrompt pas le programme. 


* Voici un sous-programme, débutant en 19, qui permet de lire un 
nombre entier positif uniquement : 


19 REM TEST DU S—-PROG 189 

24 PRINT ‘DONNER UN ENTIER POSITIF”’ 
39 GOSUB 199: PRINT ”’I1="';1 

4ÿ 1F 1 < > Ÿ THEN 29 

59 END 


6 : 

a S—-PROG LECTURE ENTIER 

11 B = LUZ 

129 GET A$: IF ASC(A$) = 13 THEN 178 

138 IF ASC(A$) = 24 THEN PRINT : GOTO 119 
149 IF A$ <’’#!' OR A$ >’’9’’ THEN 164 

154 B$ = B$ + A$: PRINT A$; : GOTO 124 
164 PING : GOTO 129 

179 1 = VAL(B$): PRINT: RETURN 


Le code ASCII de la touche RETURN est 13, celui de CTRL-X est 
24. Si vous frappez une touche qui n’est pas un chiffre, PING retentit. 
Si vous frappez un chiffre, il est affiché à la ligne 159. Ne pas oublier 
le ; de cette ligne, pour que les différents chiffres soient affichés sur la 
même ligne. 
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Si vous frappez CTRL-X (code 24), on va en 119 et on recommence la 
lecture, sans tenir compte de ce qui a déjà été frappé. Si vous frappez 
RETURN (code 13), on va à la ligne 179, la chaîne B$, qui contient 
les chiffres frappés, est convertie en un nombre par VAL, ce nombre 
est rangé dans la variable I. PRINT renvoie le curseur au début de la 
ligne suivante, puis l’on retourne d’où l’on vient avec l’ordre 
RETURN. 


KEY$ : Ceci lit le clavier. Si, à l'instant précis où cet ordre est exécuté, 
une touche est enfoncée, KEY$ est une chaîne égale à ce caractère. 
Si aucune touche n’est enfoncée, KEY$ est une chaîne vide. 


Exemple : 


Voici un programme qui vous fera apprendre la disposition des 
touches du clavier : 


LÉ INPUT ’’NB MAXIMAL DE BOUCLES”’; N 


39 REM ON TIRE UN CARACTERE 
. A$ = CHR$(33 + 62 x RND(1)) 


64 WAIT 199 
LA PRINT ’’FRAPPEZ VITE SUR ‘’; A$ 


9% FOR 1 = 1 TO N 
199 1F A$ = KEY$ THEN 169 
LA NEXT I 


139 PRINT ’’TROP TARD. PERDU!” 
149 END 

154 : 

164 PRINT ‘NB DE BOUCLES “ 

179 PRINT: GOTO 39 


Pour commencer, donnez 1) comme nombre maximal de 
boucles. A la ligne 49, on tire au hazard un caractère, que l’on range 
dans A$. A la ligne 79, ce caractère est affiché après le message FRA P- 
PEZ VITE SUR. Dans la boucle 99-119, on regarde à la ligne 199 si 
KEY$ est égal au caractère contenu dans A$. Si ce n’est pas le cas, c’est- 
à-dire si vous n’avez pas encore frappé la bonne touche, on continue à 
boucler, le nombre contenu dans I augmente. Lorsque vous avez frappé 
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la bonne touche, on va en 169 où l’on affiche le nombre de boucles effec- 
tuées. Plus vous serez rapide et plus ce nombre sera faible. 


3.7. LES BRANCHEMENTS 


Les lignes d’un programme sont normalement exécutées dans 
l’ordre des numéros croissants. Les ordres de branchement permettent de 
modifier cet ordre. 


GOTO ligne : Cet ordre provoque un branchement au début de la ligne 
de numéro ”ligne”. 


Particularité: Normalement cet ordre n’est utilisé qu’en mode 
programme. On peut aussi l’utiliser en mode immédiat. Dans ce cas, 
GOTO ligne fait démarer un programme comme RUN ligne, avec toute- 
fois une différence notable: GOTO n'’efface pas les variables et les 
tableaux comme RUN. Ceci peut parfois servir. 


ON arg GOTO ligne 1, ligne 2, ligne 3, . : Cet ordre est un branchement 
calculé. Si ”arg” vaut 1, on se branche à la ligne de numéro 
ligne 1”. Si ”arg”” vaut 2, on se branche à la ligne de numéro 
? ligne 2”. 


Exemple : 


19 INPUT DONNER N’'; N 

24 ON N GOTO 4f, 58, 64, 74 

34 PRINT ‘JE SUIS EN 39’: GOTO 14 
48 PRINT ‘JE SUIS EN 49”: GOTO 19 
58 PRINT ’’JE SUIS EN 59’: GOTO 14 
64 PRINT ‘JE SUIS EN 69”: GOTO 184 
74 PRINT JE SUIS EN 78’: GOTO 14 


Si vous donnez 1, on se branche en 49. Pour 2, on va en 59, etc. 
Particularités : 
* Si ”arg” est inférieur à 1 ou supérieur au nombre de numéros de 


lignes spécifiés, l’ordre n’a aucun effet, on passe à l’ordre suivant. 
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Dans l’exemple précédent, si vous donnez un @ ou un 5, on passe à la 
ligne suivante, 39. 


* Si ”arg” n’est pas un nombre entier, on prend sa partie entière. Dans 
l'exemple précédent, si vous donnez 2.5, on se branchera en 59. 


GOSUB ligne : Cet ordre provoque un branchement au sous-programme 
débutant à la ligne de numéro ”ligne”. Modes immédiat et 
programme. On ne peut exécuter plus de 24 GOSUB sans exécuter 
de RETURN. 


RETURN : Retour de sous-programme. Provoque un retour à l’ordre 
suivant le dernier ordre GOSUB exécuté. 


Exemple : 


* 19 GOSUB 199: PRINT ‘’EN 19” 
24 GOSUB 199: PRINT ’’EN 29” 
34 END 

199 REM SOUS-PROGRAMME 
119 PRINT ’’JE SUIS EN 119’ 
129 RETURN 


Affiche dans l’ordre : 


JE SUIS EN 119 


EN 1 
JE SUIS EN 119 
EN 29 


ON arg GOSUB ligne 1, ligne 2, ligne 3, .….: Analogue a ON arg GOTO 
…, Sauf que l’on se branche à des sous-programmes débutant en 
? ligne 1”, ” ligne 2”, etc. 


POP: Utilisable en mode programme. Un ordre RETURN provoque 
normalement un retour juste après le dernier ordre GOSUB 
exécuté. Si l’'ORIC-1 exécute POP, après avoir exécuté GOSUB et 
avant d’avoir exécuté RETURN, cet ordre RETURN provoquera 
un retour après l'avant dernier ordre GOSUB exécuté. Si on 
exécute deux ordres POP, le prochain ordre RETURN provoquera 
un retour après l’avant-avant-dernier ordre GOSUB exécuté. 
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Exemple : 


19 TRON 
24 GOSUB 199 
34 END 


48 : 

199 GOSUB 294 
119 RETURN 
124 : 

299 POP 

219 RETURN 


Lorsque vous exécutez ce programme, l’'ORIC-1 affiche les numé- 
ros des lignes exécutées, grâce à TRON. Vous obtenez: 


[24] [199] [2991 [219] [39] 


L’ORIC-1 arrive en 29. Il affiche [29] et exécute GOSUB 199, on 
se branche donc en 19. On affiche [ 199] et on exécute GOSUB 24, on 
se branche en 299. On affiche [290] et on exécute POP, on passe à la 
ligne suivante. On affiche [219] et on exécute RETURN, on retourne 
après l'avant-dernier ordre GOSUB, c’est-à-dire après GOSUB 14. On 
se trouve donc à la ligne 34. [39] est affiché et END stoppe. 


Si vous remplacez la ligne 240 par : 


298 REM 


ce qui supprime l’ordre POP et que vous exécutez le programme, vous 
obtiendrez : 


[29] [1991 (2991 [219] [119] [38] 


Cette fois-ci, l’ordre RETURN de la ligne provoque un retour après 
le dernier ordre GOSUB, celui de la ligne 19. On retourne donc en 1149 
où l’on trouve un autre ordre RETURN qui renvoie en 34. 


FOR nom de variable réelle — arg 1 TO arg 2: Utilisable en modes 
immédiat et programme. Délimite le début d’une boucle. Les ordres 
situés entre FOR... et l’ordre NEXT correspondant seront exécutés 
arg 2 — arg 1 + 1 fois. La première fois, la variable ”’ nom” 
contiendra le nombre ” arg 1”. La seconde fois, nom” contiendra 
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arg 1 + 1, etc. A chaque fin de boucle, l’'ORIC-1 ajoute 1 au 
nombre contenu dans la variable ” nom”. 


Exemple : 


Le programme suivant affiche les nombres de 1 à 19: 


19 FOR I = 1 TO 19 
28 PRINT I 
34 NEXT I 


NEXT nom: Délimite la fin de la boucle débutant à l’ordre FOR qui 
utilise le même nom de variable. 


Exemples : 


+ 


Reprenons l’exemple précédent : la variable utilisée par l’ordre FOR 
de la ligne 19, I, est la même que celle utilisée à la ligne 39 par l’ordre 
NEXT. 


* 


Si vous essayez d'exécuter : 


19 FOR 1 = 1 TO 18 
28 PRINT | 
39 NEXT Z 


vous obtiendrez le message ? NEXT WITHOUT FOR ERROR IN 
30. La variable utilisée à la ligne 39 avec l’ordre NEXT, Z, n’est pas la 
même que celle utilisée en 19, ce qui ne plaît pas à l'ORIC-1I. 


Vous pouvez imbriquer des boucles, comme dans l'exemple 
suivant : 


19 FOR1=1TO5 

29 FOR J = 1 TO 4 

39 PRINT 1; "#5; "="; 1% | boucle } boucle | 
49 NEXT } 

59 NEXT | 


La boucle 29-49, qui utilise la variable J, est imbriquée dans la 
boucle 19-59, qui utilise la variable I. 


Par contre, il n’est pas permis de faire se chevaucher des boucles, 
comme dans cet autre exemple: 
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49 NEXT | 


=17TOS5 

= 1TO 4 boucle | 

I Neil + boucle } 
59 NEXT } 


La boucle 19-49, qui utilise la variable I, et la boucle 29-59, qui 
utilise la variable J, se chevauchent. Sivous exécutez ce programme, vous 
obtiendrez un message ? NEXT WITHOUT FOR ERROR IN 59. 


FOR nom de variable réelle — arg 1 TO arg 2 STEP arg 3: Analogue à 
l’ordre FOR décrit précédemment, sauf sur ce point : au lieu d’ajou- 
ter 1 au nombre contenu dans la variable nom” à la fin de la 
boucle, on ajoute ”arg 3”. Arg 3 peut être quelconque, négatif, 
fractionnaire.. 


Exemples : 
* Ce programme décompte : 


19 FOR 1 = 5 TO 8 STEP —1 


28 WAIT 199 
34 PRINT 1; ”’..” 
49 NEXT I 


58 EXPLODE: PRINT ’’PARTEZ!!” 


* Cet autre programme compte avec un pas de 4.5: 


19 FOR 1 = 1 TO 5 STEP .5 
28 PRINT I 
34 NEXT | 


Si vous voulez en savoir plus sur les boucles FOR-NEXT : 


— À chaque fois qu’un ordre NEXT nom est rencontré, l’'ORIC-I 
ajoute 1 ou arg 3 au nombre contenu dans la variable nom”. Puis 
ce résultat est comparé à ”’arg 2”. S’il est inférieur ou égal à ” arg 2” 
on recommence la boucle, sinon on passe à l’instruction suivant 
NEXT. C'est-à-dire que: 


198 FOR 1 = A1 TO A2 STEP A3 
299 NEXT | 
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est équivalent à: 


A1 


198 1 


298 1 = 1 + A3: IF 1 < = A2 THEN GOTO 199 


Il en résulte qu’après une boucle, le nombre contenu dans la variable 
de la boucle est strictement supérieur à ”’arg 2”. 


Exemple : 


19 FOR 1 = 1 TO 3 

28 PRINT I 

39 NEXT I 

49 PRINT ’’ APRES LA BOUCLE 1 =”; | 


Après la boucle, I contient le nombre 4. 


D'autre part, comme le test est effectué à la fin, une boucle sera 
toujours exécutée au moins une fois, quelles que soient les valeurs de 
arg 1, arg 2 et arg 3. 


Exemple: La boucle: 


19 FOR 1 = 5 TO 3 STEP 2 
28 PRINT I 
39 NEXT I 
49 PRINT I 


sera exécutée une fois. En sortie de boucle, I contiendra 7. 


À chaque fois que l’on entre dans une boucle, c’est-à-dire que l’on 
rencontre un ordre FOR, l’'ORIC-I range dans une mémoire spéciale 
appelée pile le nom de la variable de la boucle et l’adresse du début 
de la boucle (l’endroit ou elle commence). Malheureusement, cette 
mémoire n’est pas infinie, et le nombre de noms de variables que l’on 
peut y ranger est limité à 19. Ce qui concrètement signifie que vous 
ne pouvez imbriquer plus de 19 boucles FOR-NEXT. Sinon, vous 
obtiendrez le message ? OUT OF MEMORY ERROR. 


Il est déconseillé de modifier le nombre contenu dans la variable 
d’une boucle, à l’intérieur de la boucle. 


Exemple : 


* 19 FOR1=1TO5 
28 PRINT I! 
34 1-6 
49 NEXT I 


Cette boucle ne sera exécutée qu’une fois, car à la ligne 59 on place 
dans I un nombre supérieur à ”’arg 2”, ici 5. 


* 19 FOR1=1TO5 
28 PRINT | 
38 1 = 3 
49 NEXT I 


On ne peut sortir de cette boucle infernale, car en 49 le nombre 
contenu dans I est inférieur à ”arg 2”, ici 5. 


— On peut utiliser un ordre NEXT sans le faire suivre d’un nom de 
variable. L’exécution de la boucle est alors légèrement accélérée, 
mais par contre l’'ORIC-1 ne peut plus contrôler si les ordres FOR et 
NEXT se correspondent bien. 


Exemple : 


19 FOR I = 1 TO 18 
28 PRINT | 
34 NEXT 


— Dans le cas de boucles imbriquées, on peut utiliser un seul ordre 
NEXT comme le montre l’exemple suivant : 


19 FOR1=1TO5 

28 FOR J = 1TO 4 

39 PRINT 1; +”; J; "="; 147) 
48 NEXT J, I 


NEXT J, I remplace NEXT J: NEXT I. 


— Si vous utilisez FOR-NEXT en mode immédiat, la boucle doit être 
frappée sur une seule ligne. Tapez: 


DIM A(18) return 
FOR 1 = # TO 19: AI) = 1: NEXT return 
FOR 1 = # TO 19: ? AI): NEXT return 
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REPEAT … UNTIL condition: Ces deux ordres permettent de définir 
une boucle, un peu comme FOR … NEXT. REPEAT délimite le 
début de la boucle tandis que UNTIL délimite sa fin. Cette boucle 
sera exécutée jusqu’à ce que la condition située après UNTIL soit 
réalisée. 

Exemple: La boucle suivante sera exécutée tant que l’on n’a pas frappé 

la touche A. 


19 REPEAT 
28 PRINT ’’FRAPPER A’: GET L$ 
34 UNTIL L$ = ”’A” 


L'ordre REPEAT pourrait ce traduire par : ” Répéter ce qui suit ” 
tandis que UNTIL L$ — ” A” signifierait ” Jusqu’à ce que la chaîne 
contenue dans L$ soit ” A”. 


Il n’y a en réalité qu’une seule différence notable entre une boucle 
FOR … NEXT et une boucle REPEAT … UNTIL. Alors que l’on finit 
toujours par sortir d’une boucle FOR-NEXT, si longue soit-elle, on peut 
répéter indifiniment une boucle REPEAT … UNTIL, sans jamais en 
sortir. 


Exemple: Voici une boucle infernale, dont on ne sort pas: 


19 REPEAT 
28 PRINT ”’JE BOUCLE”; SPC(1); 
34 UNTIL 3 > 4 


Comme la condition 3 > 4 est et sera toujours fausse, on boucle, on 
boucle. 


* On peut imbriquer des boucles REPEAT … UNTIL, de même que l’on 
imbrique des boucles FOR … NEXT. 


* De même que l’on ne peut exécuter plus de 24 ordres GOSUB sans 
exécuter d’ordre RETURN, on ne peut exécuter plus de 24 ordres 
REPEAT sans exécuter d’ordre UNTIL. Tapez: 


19 REPEAT 
28 1=1+ 1: GOTO 18 
RUN 
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L’ORIC-1 affiche un message OUT OF MEMORY ERROR. Tapez: 


PRINT 1 


L’ORIC-1 affiche alors 24. 


* On peut utiliser REPEAT … UNTIL en mode immédiat. Mais comme 
pour FOR … NEXT, la boucle doit être tapée sur une seule ligne. 


Exemple: Tapez: 
REPEAT : ? ’’FRAPPER A’: UNTIL KEY$ = ”’ A’ return 


PULL : Dans la plupart des ouvrages consacrés à l’ORIC-I1, les auteurs 
” glissent ” très rapidement sur PULL. Il y a deux bonnes raisons à 
cela : 


1) Son utilité n’est pas évidente. 
2) Expliquer quelle peut être cette utilité est encore moins évident. 


L'ORIC-1 possède une mémoire spéciale appelée ”’pile” qu’il 
utilise pour sa ” cuisine” interne: Par exemple, lorsqu'un ordre REPEAT 
est rencontré, l’adresse de l’ordre, qui est un nombre indiquant sa posi- 
tion dans le programme, est rangé dans la pile. Puis l’on passe à l’ordre 
suivant. 


Lorsque lORIC-1 rencontre un ordre UNTIL contition, il 
commence par calculer si la condition est réalisée : 


— Si la condition n’est pas réalisée, il faut recommencer la boucle. Pour 
cela, il faut d’abord se rappeler OU débute cette boucle. Heureuse- 
ment, cela a été noté, dans la pile. Plus précisément, l'ORIC-1 va 
chercher dans la pile l’adresse du dernier ordre REPEAT exécuté. Et 
il se branche à cet endroit. 


— Si la condition est réalisée, l’'ORIC-1 élimine de la pile l’adresse du 
dernier ordre REPEAT exécuté et passe à la suite du programme. 


Maintenant, reprenons le programme: 


19 REPEAT 
28 1 = 1 + 1: GOTO 18 
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A chaque fois que REPEAT est exécuté, l’'ORIC-1 range son 
adresse, toujours la même, dans la pile. Lorsqu'il a fait cela 24 fois, qu’il 
a rangé 24 fois l’adresse de REPEAT, la pile est pleine. Alors l'ORIC-1 
n’en peut plus, il affiche le message ? OUT OF MEMORY et s’arrête. 


Si vous avez compris ce qui précède, félicitations. Vous allez 
comprendre PULL. 


L'ordre PULL élimine de la pile la dernière adresse qui y a été 
placée par un ordre REPEAT (comme POP élimine ce qui a été placé 
par GOSUB). 


Concrètement cela signifie que chaque fois que l’on sort d’une 
boucle REPEAT … UNTIL, par un ordre GOTO, il est souhaitable 
(mais pas forcément indispensable) d’exécuter PULL, qui élimine de la 
pile l’adresse devenue inutile. 


39 REPEAT 
199 IF … THEN PULL: GOTO 1994 
299 UNTIL … 
1999 REM ON EST SORTI DE LA BOUCLE 


3.8. LES CONDITIONS — LES TESTS 


Nous allons exposer ici l’ordre IF … THEN …, appelé aussi 
’exécution conditionnelle”, ainsi que les expressions logiques. 


IF arg THEN ordre: ordre: ….: Si ” arg”” est vrai, on exécute le ou les 
ordres situé(s) après THEN. Sinon, on passe directement à la ligne 
suivante. Utilisable en modes immédiat et programme. 


Exemples : 


19 PRINT ’’FAIT-IL BEAU? (OUI/NON) 
24 INPUT A$ 

34 IF A$ = OUI’ THEN GOTO 6% 

49 IF A$ = ’ NON’ THEN GOTO 79 

54 PING: GOTO 14 

68 PRINT ’’JE SUIS BIEN CONTENT’: END 
74 PRINT ’’PRENEZ UN PARAPLUIE”’ 
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A la ligne 39, on regarde si la chaîne contenue dans la variable A$ 
est OUI. Si c’est le cas, on se branche en 69. Si ce n’est pas le cas on 
passe à la ligne suivante, où se trouve un second test. Si A$ contient la 
chaîne NON, on va en 79 sinon on passe à la ligne 59. 


19 PAPER 1: WAIT 199 
1=1+1:1F1 > 7 THEN I = #9: PING 
34 GOTO 1# 


Ce programme fait passer l’écran par toutes les couleurs, grâce à 
l’ordre PAPER I. Le nombre contenu dans I doit être compris entre Ÿ et 
7. Aussi, à la ligne 29, après avoir ajouté 1 au nombre contenu dans I, on 
vérifie que le résultat n’est pas supérieur à 7. Si c’est le cas, on met un Ÿ 
dans I et l’on fait retentir PING. 


IF arg THEN ordre : ordre : … ELSE ordre: ordre: … : Si” arg” est vrai, 
on exécute les ordres situés après THEN mais pas ceux situés après 
ELSE. Si ”arg” n’est pas vrai, on exécute les ordres après ELSE. 
Exécutable en mode immédiat ou programme. 


Exemple : 


19 INPUT ’’DONNER |’; 1 
28 IF 1 > 19 THEN EXPLODE ELSE PING 


Les tests que l’on peut faire sont, pour des quantités numériques : 


= égalité ex: IF À = 3 THEN … 
<> ou > < différent de ex:IFA <> 3THEN… 
< inférieur ex:1F A <3 THEN … 
<= ou = < inférieur ou égal ex:IF A <= 3THEN … 
> supérieur ex:IFA>3THEN.… 
> = ou = > supérieur ou égal ex:IFA>=3 THEN. 
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Tous ces tests peuvent être utilisés pour comparer des chaînes ou 
variables chaînes. 


— égalité ex : IF A$ — B$ THEN … 
<> ou > < différent de ex: IF A$ <> "OUI" THEN … 
< situé avant dans l'ordre alphabétique ex:1F A$ <'"N'" THEN. 


<=ou=< égal ou situé avant dans 
l'ordre alphabétique ex: IF A$ <—='""N''THEN … 


> situé après dans l'ordre alphabétique  ex:1F A$>'""N'" THEN … 


> =ou =< égal ou situé après dans 
l'ordre alphabétique ex: IF A$>—='""N'" THEN. 


Ainsi: 


* ” ARBRE” < ” MAISON” est vrai car ARBRE est situé avant 
MAISON dans l’ordre alphabétique. 


? ARBUSTE” > ” ARBRE” est vrai, ARBUSTE est situé après 
ARBRE dans un dictionnaire. 


* ? ARBRE” > ”’ N°” est faux. 


+ 


On peut combiner les tests grâce aux opérateurs logiques suivants : 


AND ‘et logique ex: IF À > 3 AND À < 19 THEN … 
OR ‘ou logique ex:IFA<3ORA>1GTHEN.… 
NOT “non” logique  ex:1F NOT À > 3 THEN. 


Quelques remarques pour ceux qui veulent en savoir un peu plus: 


— Il ne faut pas confondre l’opération d’affectation d’une valeur à une 
variable et le test d’égalité : 


19A=3 
range le nombre 3 dans la variable A: 


19 IF A = 3 THEN PRINT  EGAUX” 
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regarde si le nombre rangé dans A est un 3. C’est un test. En aucun 
cas la valeur rangée dans A n’est modifiée. 


Bien souvent, on trouve un ordre GOTO après THEN. 


Exemple : 


199 IF A > 129 THEN GOTO 34 


On peut omettre le mot GOTO, et juste indiquer le numéro de ligne : 


199 IF À > 129 THEN 39 


provoque un branchement à la ligne 39 si À > 129, exactement 
comme la ligne précédente. 


Un test est en fait un nombre, qui vaut @ si le test est faux, — 1 si le 
test est vrai. 


Exemple : 
* Tapez: 
PRINT 3 > 4 return 
L’ORIC-1 affiche un Ÿ. En effet, 3 > 4 est faux, et vaut (. 
* Tapez: 
PRINT 7 > 5 return 
L’'ORIC-1 affiche un — 1. En effet, 7 > 5 est vrai, et vaut — 1. 
* Tapez: 


PRINT — (7 x (7.> 5) +5 x (5 > = 7)) return 


L'ORIC-1 répond 7. (7 > 5) vaut — 1, (5 > = 7) vaut Ÿ. Donc: 


7 x (7 > 5) vaut —7 et 5 x (5 > = 7) vaut #. 


* Tapez: 


PRINT — (5 x (7 > 5) +7 x (5 > = 7)) return 
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L’ORIC-1 répond 5. (7 > 5) vaut — 1, (5 > = 7) est nul. S « (7 > 5) 
vaut — 5 tandit que 7 x (7 >= 5) est nul. 


Un test logique est en fait un nombre. Lorsque l’ORIC-1 trouve IF 
arg THEN …, ”arg” est un nombre, ”’arg” est ” faux” si ce nombre 
est nul, ”arg” est ” vrai” s’il n’est pas nul. Ce qui signifie que: 


19 IF V THEN 199 


est parfaitement correct. V est une variable. Si le nombre contenu 
dans V est nul, on passe à la ligne suivante. Si le nombre contenu 
dans V n’est pas nul, on se branche en 199. De même: 


29 IF V + 4— (A > B) THEN 299 est correct 


Pour les fanatiques des expressions logiques, le nombre (faux) peut 
être remplacé par le mot FALSE, tandis que — 1 (vrai) peut être 
remplacé par le mot TRUE. 


Exemple: Tapez: 


A = TRUE 

B = FALSE 

? À AND BB ’’et”’ logique 

? À ORB ‘’’ou”’ logique 

? À AND NOT B OR NOT A AND B ’’ou exclusif’ logique 


Comme pour les opérateurs arithmétiques, les opérateurs logiques 
ont différentes priorités. L’ORIC-1 calcule dans l’ordre: 

* lestests, <, >, puis 

* les NOT puis 

* les AND et enfin 

+ les OR. 


Si vous tapez À OR B AND C, l’'ORIC-1 calcule d’abord B AND C, 
puis calcule le OR de A et ce résultat. 
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La maîtrise de l'écran 
de l'ORIC-1 


4.1. LE MODE TEXT 


Lorsque vous mettez en marche l’ORIC-1, l'écran est utilisé en 
mode TEXT. Ce qui signifie que l’on affiche du texte. 


Cet écran est divisé en 28 lignes de 49 caractères. La première 
ligne, celle du haut de l’écran, est réservée à l’'ORIC-1, vous ne pouvez 
pas l’utiliser. C’est sur cette ligne que le message CAPS est affiché, et 
que SEARCHING... et LOADING apparaissent lorsque vous chargez 
un programme. On n'utilise pas non plus les deux colonnes de gauche de 
l'écran, nous verrons pourquoi plus loin. Lorsque vous frappez sur le 
clavier, ou que vous exécutez un ordre PRINT, vous disposez donc de 
27 lignes de 38 caractères. 


Voici les ordres Basic qui concernent ce mode. 


TEXT : Utilisable en mode immédiat ou en mode programme. Cet ordre 
permet de revenir au mode TEXT, lorsqu'on l’a quitté avec 
LORES ou HIRES. 


PRINT : Cet ordre permet d’afficher ce que l’on veut. Voir 3.6. 


PAPER arg : Utilisable en mode immédiat ou en mode programme. Cet 


ordre donne à l’écran la couleur numéro ” arg”. ”arg” doit être 
compris entre Ÿ et 7. 
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INK arg: Utilisable en mode immédiat ou en mode programme. Cet 


ordre donne au texte affiché la couleur numéro ?’arg””. ” arg” doit 
être compris entre Ÿ et 7. 


Exemple: Le programme suivant essaie toutes les couleurs : 


19 FOR P=#TO 7 
24 PAPER P 

34 FOR 1 = f TO 7 
49 INK 1: WAIT 199 
5 NEXT | 

69 NEXT P 

79 INK 


Lorsque le texte et le fond sont de la même couleur, on ne voit plus 
rien. 


Un téléviseur est capable de produire trois couleurs qui sont rouge, 
vert et bleu. Pour l’ORIC-1, ces couleurs sont désignées par les numéros 
1, 2 et 4. Par exemple PAPER 2 donne un écran vert. Si l’on veut obtenir 
un mélange de deux de ces trois couleurs, on fait la somme des numéros 
correspondants. Par exemple, PAPER 2 + 4 donne un mélange de vert et 
bleu, ce qui est cyan. 


Les numéros des couleurs pour PAPER et INK sont donc: 
rouge 


vert 
bleu 


jaune = rouge + vert 
violet = rouge + bleu 
cyan = vert + bleu 
+2+4 blanc = rouge + vert + bleu 


CLS: Utilisable en mode immédiat ou en mode programme. Cet ordre 
efface l’écran et renvoie le curseur en haut à gauche. 


PLOT arg 1, arg 2, arg $: Utilisable en mode immédiat ou en mode 
programme. Cet ordre permet d’afficher un message où l’on désire. 
Tapez : 


CLS: PLOT 14, 12, ‘BONJOUR’ return 
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Le message BONJOUR est affiché au milieu de l’écran. 


Comme on l’a déjà dit, l’écran est divisé en 28 lignes de 49 carac- 
tères. La première ligne, celle où il y a CAPS n’est pas utilisable.On 
donne un numéro à chacune des 27 autres lignes, de @ à 26. La première 
ligne utilisable a le numéro @. La dernière ligne à le numéro 26. Alors 
qu’avec un ordre PRINT les deux premières colonnes sont inutilisables, 
seule la première colonne n’est pas utilisable avec PLOT. On dispose 
donc de 39 colonnes, qui sont numérotées de à 38. 


38 
91 2 3 4. CAPS 


PLOT 3, 2, "AB" 


2 ER PE RES 1 


Un ordre PLOT arg 1, arg 2, arg $ affiche la chaîne ”’arg $” sur la 
ligne de numéro ” arg 2”. Le premier caractère de la chaîne se trouve 
dans la colonne de numéro ” arg 1”. ”arg 1” doit être compris entre Yet 
38 tandis que ” arg 2” doit être compris entre Ÿ et 26. 


Exemple : 
PLOT 3, 2, '’ AB” 


imprime AB sur la ligne 2. Le caractère A se trouve dans la colonne 3. 
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Particularités : 


* 


* 


let 
B 
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On peut utiliser la seconde colonne qui a pour numéro. Mais le 
message affiché sera écrit en blanc. Tapez: 


PAPER 2: INK Ÿ: CLS return 


L'écran devient vert, le texte est noir et on efface. Tapez ensuite : 


PLOT 1, 13, COULEUR INK’’ return 


Le message apparaît noir. Tapez maintenant: 


PLOT $, 15, C’EST BLANC” return 


Le message apparaît blanc. L’explication en sera donnée plus loin. 
PLOT permet d’afficher des chaînes. Pour afficher un nombre arg en 
position (arg 1, arg 2), utilisez : 


A$ = STR$(arg): PLOT arg 1, agr 2, RIGHT$(AS$,LEN(AS$) — 1) 


Exemple : Tapez: 


V = 12 return 
A$ = STR$(V + 3): PLOT 28, 17, RIGHTS$(A$,LEN(A$)-1) return 


La valeur V + 3, c’est-à-dire 15, est affichée sur la ligne 17. Le 
premier chiffre, 1, est dans la colonne 2ÿ. 


On peut utiliser PLOT arg 1, arg 2, arg 3 avec ” arg 3” compris entre 
@ et 255. Dans ce cas, on affiche le caractère dont le code ASCII est 
”arg 3”. PLOT 34, 29, 65 affiche un A. 


POS (Q) : Est égal au numéro de la colonne où se trouve le curseur, de 
0 à 39. Exemple: À = POS () 


4.2. REDÉFINIR LES CARACTÈRES 


Lorsque vous frappez sur la touche À, il apparaît sur l’écran une 
tre À. Il est possible de modifier cela. Par exemple, faire apparaître un 
ou un C lorsque l’on frappe sur la touche A. 


Exemple : Le programme suivant remplace toutes les voyelles par des A. 


19 DATA E, 1, O,U,Y:N=5 

24 À = 46088 + 65 » 8 

3% FORI=1TON 

44 READ C$: C = 46989 + ASC(C$) » 8 
59 FOR ] = # TO 7 

64 POKE C+], PEEK(A + J) 

74 NEXT J 

8g NEXT | 


Après avoir exécuté ce programme, frappez sur les touches A, E, I, 
O, U, Y. Il ne s’affiche que des A. Frappez RETURN, il apparaît : 


? SANTAX ARRAR 


au lieu de ? SYNTAX ERROR. Frappez la touche reset, sous l’'ORIC-1, 
pour se débarasser de tous ces A. 


Un caractère est défini par une matrice de 6 points sur 8. Par 
exemple la lettre A: 


Le programme suivant vous permet de redéfinir un caractère: 


19 CLS: PRINT ’’FRAPPEZ LE CARACTERE” 
: INPUT ’’A REDEFINIR PUIS RETURN’; C$ 
3 . 


49 REM MODE D'EMPLOI 

5f CLS 

64 PRINT ’’DESSINEZ LE CARACTERE DANS"; 

74 PRINT ’’ LA GRILLE” 

89 PRINT : PRINT ’’POUR MARQUER UN POINT: 
99 PRINT ’’— ON DEPLACE LE CURSEUR 
199 PRINT ” AVEC LES FLECHES”’ 
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119 PRINT ’’— ON FRAPPE X” 

129 PRINT 

139 PRINT ’’POUR EFFACER UN POINT :”’ 
149 PRINT ’’— ON AMENE LE CURSEUR” 
159 PRINT ”’ SUR LE POINT” 

164 PRINT ’’— ON FRAPPE LA BARRE" 

179 PRINT 

189 PRINT ’’LORSQUE LE DESSIN EST FINI” 
199 PRINT ’’FRAPPEZ LA TOUCHE ESC’ 


29 : 
219 REM DESSINE LA GRILLE 
229 FOR C = 15 TO 22: PLOT C, 15, ‘’#’’: NEXT 


239 FOR L = 16 TO 23: PLOT 15, L, L ” 

249 PLOT 22, L, ‘’+’: NEXT 

A FOR C = 15 TO 22: PLOT C, 24, x": NEXT 
26 

278 REM DEFINITION DU CARACTERE 

289 GET A$: IF A$ = CHR$(27) THEN 319 

A PRINT A$; : GOTO 288 ’NE PAS OUBLIER’; 


319 REM RANGE CETTE DEFINITION DANS T 
329 DIM T(?) 

339 FOR 1 = f TO 7 

349 FOR C = 16 TO 21 

35 IF SCRN(C, 16 + 1) <. > ASC(’X'’) THEN 379 
369 T(1) = T(I) + 2 À (21 — C) 

378 NEXT C 

389 NEXT 1: CLS 


394 : 

499 REM RANGE EN MEMOIRE ORIC 
419 FOR I = ÿ TO 7 

429 À = 46989 + ASC(C$) x 8 + I 

439 POKE A, T{(I) 

44ÿ PRINT "’POKE Me As", T() 
459 NEXT | 


Généralement, on redéfinit les caractères peu utilisés comme @ ou 


Exemple: Tapez RUN. Le programme vous demande le caractère à 
redéfinir. Tapez @ puis return. Amenez le curseur dans le rectangle 
grâce aux touches flèches, puis formez le caractère r 
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Le rectangle est tracé par le programme. 


En utilisant les touches flèches et le x, vous composez le caractère. 
Lorsque ceci est achevé, frappez la touche ESC. 


Un petit instant après la frappe de ESC, il apparaît sur l’écran: 


POKE 46592,2 

POKE 46593,64 
POKE 46594,29 
POKE 46595,24 
POKE 46596,24 
POKE 46597,29 
POKE 46598,29 
POKE 46599,9 


Ce sont les 8 ordres basics qui rangent la définition du caractère 
dans la mémoire de l’ORIC-1. Il suffit d’exécuter ces 8 ordres pour 
transformer le @ en nr. 


4.3. VOUS AVEZ DIT CODE ASCII? 


ASC (arg $): Utilisable en mode immédiat ou programme. Donne le 
code ASCII du premier caractère de la chaîne arg $. A l’intérieur 
de l’'ORIC-1, tous les caractères, lettres majuscules, minuscules, 
chiffres, etc. sont désignés, codés par un numéro que l’on appelle 
code ASCII. La fonction ASC donne le code ASCII d’un caractère 
quelconque. 
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Exemple: Le caractère À à 65 pour numéro. Tapez: 


? ASC('’A”) return 


L’ORIC-1 répond 65. 
Une table donnant les codes ASCII des caractères est en annexe. 
CHRS (arg): Utilisable en mode immédiat ou programme. Donne le 


caractère dont le code ASCII est ”’arg”. Cette fonction fait donc 
l'inverse de ASC. ” arg” doit être compris entre Ÿ et 255. 


Exemple : Le caractère B a 66 pour numéro, pour code ASCII. Tapez : 


? CHR$(66) return 


L’'ORIC-1 affiche un B. 


Arrivé à ce point de la lecture, vous pouvez vous demander s’il est 
vraiment utile de pouvoir connaître les numéros, les codes ASCII des 
caractères. En fait c’est FONDAMENTAL. Mais lisez donc ce qui suit. 


SCRN (arg 1, arg 2): Utilisable en modes immédiat et programme. Ceci 
donne le code ASCII du caractère situé dans la colonne de numéro 
”arg 1” et sur la ligne de numéro ”arg 2”. Ce qui permet à un 
programme de lire ce qu’il y a sur l’écran. ”arg 1” est compris 
entre Ÿ et 38, ” arg 2” entre Ÿ et 26. 


Exemple : 


* Tapez: 
CLS: ? SCRN(1,1) return 
L’ORIC-2 répond 82, qui est le code ASCII du R de Ready. 
* Le programme suivant relit l’écran, recherche les A et les remplace par 


des !: 
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19 PEX$ = ‘1’: À = ASC(’A’'): ESC$ = CHR$(27) 
28 CLS: PRINT ’’FRAPPEZ N'IMPORTE QUOI” 
34 PRINT ‘PUIS FRAPPEZ LA TOUCHE ESC” 


4f : 
59 GET C$: IF C$ = ESC$ THEN 89 
. PRINT C$; : GOTO 58 ’PAS OUBLIER; 


89 FOR L = A TO 26 

99 FOR C = S TO 3 

199 IF SCRN(C,L) = À THEN PLOT C, L, PEX$ 
119 NEXT C 

129 NEXT L 


La variable A contient le code ASCII de la lettre ?” A” (65). La 
variable ESC$ contient le caractère ESC, qui a 27 comme code ASCII. 


A la ligne 199, on regarde si le code ASCII du caractère placé à la 
ligne L, colonne C est égal au nombre contenu dans A. Si c’est le cas, 
on met à cet endroit la chaîne contenu dans PEXS$, grâce à PLOT. 


4.4. TOUT SUR LES CODES ASCII ET PLOT 


L’'ORIC-1 connaît 256 caractères, de CHR$(9) à CHRS$(255). 
Chacun de ces caractères a une action particulière sur l’écran, que nous 
allons expliquer en utilisant l’ordre PLOT. 


— Choisir la couleur des textes. CHR$(9) à CHR$(7). 
Les caractères CHR$(9) à CHRS$(7) permettent de choisir la 
couleur des textes que l’on affiche. 


CHR$(@) donne des textes noirs 
CHR$(1) donne des textes rouges 
CHRS(2) donne des textes verts 
CHR$(3) donne des textes jaunes 


CHRS$(4) donne des textes bleus 

CHR$(5) donne des textes violets 
CHR$(6) donne des textes bleu ciel (cyan) 
CHR$(7) donne des textes blancs 


Vous remarquerez que les numéros @ … 7 correspondent aux 
mêmes couleurs qu'avec INK ou PAPER. 
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De façon plus précise, l’un de ces caractères détermine la couleur 
du texte: 


* situé sur la même ligne, 


* depuis derrière lui jusqu’à la fin de la ligne ou jusqu’au prochain 
caractère de commande de couleur de texte. 


Exemple: Le programme suivant essaie CHRS$(1) à CHRS$(7): 


19 DATA ROUGE, VERT, JAUNE, BLEU 

28 DATA VIOLET, CYAN, BLANC 

34 CLS: PAPER # 

49 FOR 1 = 1 TO 7 

58 READ C$: PLOT 19, 19 + 1, CHR$(I) + C$ 
69 PING: WAIT 199: NEXT 1: PAPER 2: INK # 


Prenons le cas du premier mot affiché, ROUGE. On affiche 
CHRS$(1) en (19,11). Le mot ROUGE est situé après, sur la même ligne, 
il apparaît donc rouge. Tapez: 


PLOT 1, 11, AVANT” return 


Ceci affiche le mot AVANT sur la même ligne que le mot 
ROUGE. Mais comme ce nouveau mot se trouve placé avant CHRS$(1), 
qui est en colonne 19, ce mot n’est pas rouge. Tapez: 


PLOT 28, 11, ‘’ APRES” return 


Ceci affiche le mot APRES sur la même ligne que le mot ROUGE. 
Comme ce mot est situé après CHRS$(1), il est rouge. Tapez maintenant : 


PLOT 18, 11, ’X’' return 


Ceci place une lettre X en position (19,11), c’est-à-dire à la place de 
CHRS$(1). Comme CHRS$(1) a disparu, remplacé par X, les deux mots 
ROUGE et APRES ne sont plus rouges. 


Lorsque vous exécutez un ordre INK 6, l’'ORIC-1 place un code 
CHRS$(6) dans la seconde colonne de toutes les lignes de l’écran, et tout 
le texte affiché est bleu ciel (cyan). Ce qui explique pourquoi l’ordre 
PRINT n'utilise pas les deux premières colonnes de l’écran : pour ne pas 
détruire, écraser ces caractères. 
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On peut avoir, sur une même ligne, plusieurs mots de couleurs 
différentes, en utilisant plusieurs caractères commandant la couleur du 
texte : 


Tapez : 
CLS: PAPER 2: INK $ return 
Tapez : 
PLOT 2, 22, NOIR" return 


Le mot NOIR est affiché en noir car l’ordre INK @ a placé un 
CHRS$(9) dans toutes les secondes colonnes. Tapez : 


PLOT 8, 22, CHR$(4) + ‘’BLEU”’ return 
PLOT 18, 22, CHR$(7) + BLANC’ return 
PLOT 28, 22, CHR$(1) + ROUGE” return 


Lorsqu'une ligne ne comporte aucun de ces caractères, le texte est 
blanc. Ce qui se produit si vous tapez: 


PLOT $, 3, COUCOU” 


le premier C est en deuxième colonne et écrase le caractère placé par 
INK. 


— Les caractères double hauteur, clignotants, semi-graphiques 
CHRS(8) à CHRS$(15): 
Les caractères peuvent être affichés : 
* en simple hauteur ou en hauteur double, 
* fixes ou clignotants, 
* pris dans le jeu de caractères standard ou le jeu semi-graphique. 


Normalement, les caractères affichés sont en simple hauteur, fixes 
et pris dans le jeu de caractères standard. 
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CHR$(8) provoque un affichage fixe, simple hauteur, standard 
CHR$(9) provoque un affichage fixe, simple hauteur, semi-graphique 
CHR$(19) provoque un affichage fixe, double hauteur, standard 
CHRS$(11) provoque un affichage fixe, double hauteur, semi-graphique 


CHR$(12) provoque un affichage clignotant, simple hauteur, standard 
CHR$(13) provoque un affichage clignotant, simple hauteur, semi-graphique 
CHR$(14) provoque un affichage clignotant, double hauteur, standard 
CHR$(15) provoque un affichage clignotant, double hauteur, semi-graphique 


L’un de ces caractères détermine la façon d’afficher le texte : 
* situé sur la même ligne, 


* depuis derrière lui jusqu’à la fin de la ligne ou jusqu’au prochain 
caractère CHRS$(8) — CHRS$(15). 


Lorsqu'il n’y a pas un seul de ces caractères dans une ligne, ce qui 
est le cas lorsque l’on met l’ORIC-1 en marche, les caractères sont affi- 
chés en simple hauteur, fixes et pris dans le jeu standard de caractères. 


* Affichage clignotant. Tapez: 


CLS: PLOT 18, 28, AVANT” return 
PLOT 15, 28, CHR$(12) return 
PLOT 16, 24. APRES” return 


On a placé CHR$(12) entre le T de AVANT et le À de APRES. Le 
mot AVANT est avant CHRS$(12), il n’est pas affecté. Le mot APRES 
est après CHR$(12), il clignote. Tapez: 


PLOT 15, 24, ‘’X'' return 


Ceci place un caractère X à la place de CHRS$(12). Comme 
CHR$(12) a disparu, APRES ne clignote plus. Tapez: 


PLOT 15, 29, CHR$(12) return 


et c’est reparti! 
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* Affichage double hauteur. Tapez: 


CLS return 
PLOT 19, 21, CHR$(19) + ’’xCOUCOUXx”’ return 


Regardez de près l’écran : seule la moitié supérieure des caractères 
est affichée. Tapez maintenant : 


PLOT 18, 18, CHR$(19) + ‘’xCOUCOUXx”’ return 


Regardez de près. Cette fois-ci, c’est la moitié inférieure des carac- 
tères qui a été affichée. 


On affiche la moitié supérieure des textes situés sur les lignes de 
numéro impair. On affiche la moitié inférieure des textes situés sur les 
lignes de numéro pair. 


Vous pouvez vous demander pourquoi ceci est appelé affichage 
” double hauteur”, alors que l’on affiche que la moitié des caractères. 
Tapez : 


PLOT 18, 17, CHR$(18) + ‘’xCOUCOUXx”’ return 
PLOT 1#, 22, CHR$(19) + ”’xCOUCOUX” return 


On obtient bien des caractères en double hauteur. 


Ainsi donc, pour afficher un mot, un texte en double hauteur, il faut 
l'afficher deux fois. Tapez: 


CLS: A$ = ’’BONJOUR'’' return 


PLOT 15, 21, A$ return 
PLOT 15, 22, A$ return 


Le mot bonjour est écrit deux fois. Tapez: 


PLOT 14, 21, CHR$(19) return 


Le premier BONJOUR est modifié. Comme il est sur une ligne de 
numéro impair (21), on affiche la moitié supérieure. Tapez:. 


PLOT 14, 22, CHR$(18) return 
Le second BONJOUR est modifié. Comme il est sur une ligne de 


numéro pair (22), on affiche la moitié inférieure. 
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Ainsi les deux BONJOUR des lignes 21 et 22, ainsi accolés, 
semblent ne faire qu’un mot, de hauteur double. 


* Caractères semi-graphiques : 


Les codes ASCII 32 à 125, les caractères CHR$(32) à CHRS$(125) 
correspondent aux caractères ” affichables ”, alphabet, chiffres, signes de 
ponctuation, symboles. A chacun de ces codes, de ces caractères, corres- 
pond deux représentation affichables sur l’écran. La première représenta- 
tion est appelée ” caractère standard”. La seconde représentation est 
appelée ” caractère semi-graphique ”. 


19 CLS 

28 PLOT 1, 7, CODE ASCII” 

39 PLOT 1, 12, CARACTERE STANDARD” 

49 PLOT 1, 17, CARACTERE SEMI-GRAPHIQUE” 
5g PLOT 26, 17, CHR$(9) 


68 : 

78 FOR I = 32 TO 125 

89 A$ = STR$(I) 

98 1$ = RIGHT$(A$,LEN(A$) — 1) 
194 PLOT 36, 7, 1$ 

119 PLOT 39, 12, CHR$(I) 

124 PLOT 34, 17, CHR$(I) 

134 WAIT 244 

144 NEXT | 


A la ligne 59, on place un caractère CHR$(9) dans la ligne 17. A la 
ligne 119, on affiche CHR$(I), qui est normalement affiché, on obtient le 
caractère standard. A la ligne 129, on affiche de nouveau CHRS(I), sur 
la ligne 17. Mais comme sur cette ligne 17 se trouve un caractère 
CHRS$(9), situé avant CHRS$(D), on obtient cette fois-ci le caractère semi- 
graphique. 


Si vous tapez: 

PLOT 28, 29, CHR$(9) + ‘COUCOU’ return 

Vous obtenez quelque chose de peu lisible. En effet, l’'ORIC-1 
affiche le caractère semi-graphique qui a le même code. ASCII que C, le 


caractère semi-graphique qui a le même code ASCII que O, le caractère 
semi-graphique qui a le même code ASCII que U, etc. 
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Tapez maintenant: 


PLOT 29, 2, ‘’X'' return 


Ceci place la caractère X à la place de CHR$(9).Comme il n’y a 
plus de CHRS$(9), le mot COUCOU apparaît normalement. Tapez : 


PLOT 29, 29, CHR$(13) return 


On obtient cette fois-ci les caractères semi-graphiques clignotants. 
— Choisir les couleurs de l’écran CHR$(16) à CHR$(23) 


Les caractères CHRS$(9) à CHR$(7) vous permettent de choisir la 
couleur des textes. Les caractères CHRS$(16) à CHR$(23) vous permet- 
tent, exactement de la même façon, de choisir la couleur de l’écran, du 
fond. 


CHR$(16) donne un écran noir 
CHR$(17) donne un écran rouge 
CHR$(18) donne un écran vert 
CHR$(19) donne un écran jaune 


CHR$(29) donne un écran bleu 
CHR$(21) donne un écran violet 
CHR$(22) donne un écran bleu ciel 
CHR$(23) donne un écran blanc 


Vous remarquerez que lorsque l’on retire 16 à ces numéros, ils 
correspondent aux mêmes couleurs qu’avec INK et PAPER. 


L'un de ces caractères détermine la couleur du fond: 
* de la ligne où il se trouve, 


* depuis l'endroit où il est jusqu’à la fin de la ligne ou jusqu’au prochain 
caractère CHR$(16) — CHR$(23). 


Exemples : 


* Tapez: 


CLS: PAPER 2 return 
PLOT 18, 24, CHR$(17) return 
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La ligne 29 est rouge, à partir de la colonne 19. Tapez: 


PLOT 29, 29, CHR$(21) return 


La ligne 29 est violette à partir de la colonne 2ÿ. 


* Lorsque vous exécutez par exemple PAPER 2, l’'ORIC-1 place dans la 
colonne tout à gauche de l’écran, dans chaque ligne, un caractère 
CHRS$(18). Ainsi l’écran est tout vert. 


19 CLS: PAPER 4 

28 FOR L = # TO 26 

34 PLOT 4, L, ‘’JE SUIS’ 

49 PLOT 12, L, CHR$(23) + ‘’FIER D'ETRE” 
58 PLOT 26, L, CHR$(17) + ‘’FRANÇAIS”’ 
68 NEXT L 


Variante: A la ligne 19, remplacez PAPER 4 par PAPER 2 et à la 
ligne 59, remplacez ” FRANÇAIS ”par ” ITALIEN”. 


— Mettre la panique dans l’affichage CHR$(24) à CHR$(51). 


CHR$(24) et CHR$(25) synchronisation vidéo à 60 Hz en texte 
CHR$(26) et CHR$(27) synchronisation vidéo à 59 Hz en texte 
CHR$(28) et CHR$(29) synchronisation vidéo à 69 Hz en graphique 
CHRS$(39) et CHR$(31) synchronisation vidéo à 59 Hz en graphique 


Le synchronisation à 69 Hz met la panique dans l’affichage, tandis 
que la synchronisation à 59 Hz le rend normal. 


— Nous ne nous étendrons pas sur les caractères CHR$(32) à 
CHR$(125) ce sont les lettres majuscules, les chiffres, les lettres 
minuscules, les signes de ponctuation, les symboles du clavier. 


— CHR$(126) donne un carré pâle tandis que CHR$(127) donne un 
carré foncé. Tapez: 


PLOT 28, 29, CHR$(126) return 
PLOT 22, 24, CHR$(127) return 
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— Les caractères CHR$(128) à CHRS$(255) sont les mêmes que 
CHRS$(9) à CHR$(127). Il y a une seule différence : ils sont affichés 
en vidéo inverse. C’est-à-dire que: 


Les points qui devraient être noirs sont blancs 
Les points qui devraient être rouges sont cyans 
Les points qui devraient être verts sont violets 
Les points qui devraient être jaunes sont bleus 
Les points qui devraient être bleus sont jaunes 
Les points qui devraient être violets sont verts 
Les points qui devraient être cyans sont rouges 
Les points qui devraient être blancs sont noirs 


Exemples : Tapez : 


CLS: PAPER 2: INK 8 return 
PLOT 29, 29, CHR$(65) return 


Ce qui affiche un A. Maintenant, tapez: 
PLOT 22, 24, CHR$(128 + 65) return 


On obtient un À en vidéo inverse l’écran est violet au lieu d’être 
vert, le A est blanc au lieu d’être noir. Tapez: 


PLOT 29, 22, CHR$(17) return 


CHR$(17) commande une couleur d’écran rouge, on obtient donc 
sur la ligne 22 un écran rouge depuis la colonne 29 jusqu’à la fin de la 
ligne. Tapez: 


PLOT 24, 24, CHR$(128+17) return 


De même qu’avec CHRS$(17), la fin de la ligne où se trouve le 
caractère devient rouge. Par contre, en (29,24), l’écran, qui devrait être 
rouge, est en vidéo inverse, cyan. 


En résumé, il faut se rappeler que: 


CHRS(@) à CHRS$(31) permettent de choisir les couleurs, les types de 
caractères. Ils ont une action depuis l'endroit où ils se trouvent 
jusqu'à la fin de leur ligne, ou jusqu'au prochain caractère 
analogue, s'il y en a. 


CHR$(32) à CHR$(127) donnent les lettres, les chiffres, la ponctuation, 


CHR$(128) à CHRS$(255) ont la même action que CHRS$(Q) à 
CHR$(127), mais sont affichée en vidéo inverse. 


4.5. TOUT SUR LES CODES ASCII ET PRINT 


Un ordre PLOT arg 1, arg 2, arg $ affiche la chaîne ” arg $” à 
partir de la position (arg 1, arg 2). Un ordre PRINT affiche à partir de 
l’endroit où se trouve le curseur et déplace le curseur à chaque caractère 
affiché. PLOT ne déplace pas le curseur. 


Il faut aussi savoir que l’ordre PRINT: 


* N’affiche pas les caractères CHR$(9) à CHR$(31), il les garde pour 
lui! Nous verrons plus loin ce qu’il en fait. 


Tapez : 


CLS: INK # return 
PLOT 25, 29, CHR$(1) + AAA’! return 


CHRS$(1) donne des textes rouges, on obtient donc trois lettres A 
rouges. 


Tapez maintenant : 
PRINT CHR$(1) + AAA’ return 


Déception, les lettres ne sont pas rouges. En effet, PRINT n’a pas 
affiché CHRS$(1), il l’a gardé pour lui. Mais rassurez vous, il existe une 
astuce, que nous dévoilerons plus loin, qui permet d’afficher tout de 
même les caractères CHR$(9) à CHR$(31) avec PRINT. 
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* PRINT accepte d’afficher les caractères CHR$(32) à CHRS$(127). 
Mais pas dans les deux premières colonnes de l’écran. 


Tapez : 


WAIT 599: PRINT ’’ABCD’ return 


Vous avez cinq secondes pour constater que le curseur est dans la 
colonne de gauche de l’écran. Normalement, PRINT affiche là où se 
trouve le curseur, la lettre A devrait être affichée dans la colonne de 
gauche. Il n’en est rien, le curseur sera déplacé de deux cases vers la 
droite avant que le A soit affiché. 


Si PRINT n'’écrit pas dans les deux premières colonnes, il y a une 
bonne raison à cela. La première colonne est utilisée par l’ordre 
PAPER qui y place, dans chaque ligne, un caractère définissant la 
couleur du fond (CHR$(16) à CHRS$(23)). La seconde colonne est 
utilisée par l’ordre INK qui y place, dans chaque ligne, un caractère 
définissant la couleur du texte (CHRS$(Ÿ) à CHRS$(7)). 


* Lorsqu'il rencontre un caractère compris entre CHRS$(128) et 
CHR$(255), PRINT commence par ôter 128 au code ASCII. Ce qui 
signifie que PRINT ne peut afficher de caractères en vidéo inverse. 


Comme on l’a déjà dit, PRINT n'affiche pas les caractères 
CHRS$(9) à CHR$(31). De même, lorsque vous frappez sur une touche 
dont le code ASCII est compris entre Ÿ et 31, l’'ORIC-1 n’affiche aucun 
caractère. 


À chacun de ces caractères est associé un ordre, un sous- 
programme que l’ORIC-1 exécute à chaque fois qu’il rencontre le 
caractère. 


Par exemple, si vous tapez: 
PLOT 25, 29, CHR$(12) + ‘’ABCD”’ return 


Le caractère CHRS$(12) est affiché, à la position (25,29), il 
provoque le clignotement du mot situé après lui. Si maintenant vous 
tapez : 


PRINT CHR$(12); ‘’ABCD”’ return 
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ou si vous frappez la touche CTRL-L, qui a 12 pour code ASCII, le 
caractère CHR$(12) n’est pas affiché. A la piace, l'ORIC-1 exécute un 
ordre, un sous-programme, qui efface l’écran. 


— Les caractères de contrôle: 


Lorsque l’'ORIC-1 rencontre un caractère compris entre CHRS$(0) 
et CHR$(31), après un ordre PRINT ou frappé au clavier, il exécute un 
sous-programme au lieu d’afficher le caractère. Ces caractères sont 
appelés ” caractères de contrôle”. Nous allons décrire l’action du sous- 
programme associé à chacun d’eux. 


Touche Effet lorsque l'on frappe la touche 
correspondante ou l'on exécute PRINT CHR$(code) ; 


pas de touche Aucun 

CTRL-A CTRL-A relit un caractère sur l'écran. 
CTRL-B Aucun. 

CTRL-C CTRL-C interrompt un programme Basic. 


CTRL-D Provoque un affichage double. Les carac- 
tères suivants frappés au clavier ou affi- 
chés avec PRINT seront affichés deux 
fois chacun. Très utile lorsque l'on veut 
obtenir des caractères double hauteur. 
Pour annuler ce mode, utiliser de nou- 
veau CHRS$(4) ou CTRL-D. 


Aucun. 


Supprime le ”plop” que l'on entend lors- 
que l'on frappe une touche. Pour retrou- 
ver le bruit, réutiliser CHR$(6) ou CTRL-F 


CTRL-G Fait retentir PING. 
CTRL-H ou + Déplace un cran à gauche le curseur. 
CTRL-I ou + Déplace un cran à droite le curseur. 


CTRL-J ou } Déplace un cran vers le bas le curseur. 


CTRL-K ou Déplace un cran vers le haut le curseur. 


Code 
ASC! 
12 
13 


14 
15 
16 
17 


18 
19 


29 


21 
22 
23 
24 


25 
26 
27 


28 


Touche 


correspondante 


CTRL-L 


CTRL-M ou 
RETURN 


CTRL-N 
CTRL-0O 
CTRL-P 
CTRL-Q 


CTRL-R 
CTRL-S 


CTRL-T 


CTRL-U 
CTRL-V 
CTRL-W 
CTRL-X 


CTRL-Y 
CTRL-Z 
CTRL-[ ou ESC 


CTRL-/ 


Effet lorsque l'on frappe la touche 
ou l'on exécute PRINT CHRS$(code) ; 


Efface l'écran. 


Envoie le curseur au début de la ligne 
suivante. 


Efface la ligne où se trouve le curseur. 
Aucun. 
Aucun. 


Supprime l'affichage du curseur. Pour le 
retrouver, réutiliser  CHR$(17) ou 
CTRL-Q. 


Aucun. 


Supprime l'affichage des caractères frap- 
pés au clavier ou émis par PRINT. N'af- 
fecte pas ceux émis par PLOT. Pour re- 
prendre l'affichage, réutiliser CHR$(19) 
ou CTRL-S. 


Passage du clavier en minuscules. Le 
mot CAPS situé en haut à droite de l'écran 
disparaît. Pour obtenir les majuscules, on 
utilise SHIFT. Le clavier de l'ORIC-1 est 
semblable à celui d'une machine à écrire. 
Pour revenir en majuscules, réutilisez 
CHR$(20) ou CTRL-T. 


Aucun. 
Aucun. 
Aucun. 


CTRL-X annule la ligne en train d'être 
frappée. 


Aucun. 
A la même action que ESC. 


Permet d'afficher les caractères CHR$(@) 
à CHR$(31). 


Aucun. 


Code Touche 
ASCII correspondante 
29 CTRL-| 


30 pas de touche 


31 CTRL-DEL 


Exemples : 


* 


1 


19 CLS: PRINT 
24 FOR I = 1 TO 28 


Effet lorsque l'on frappe la touche 
ou l'on exécute PRINT CHRS$(code): 


Donne la permission à l'ordre PRINT 
d'utiliser les deux premières colonnes. 
Mais alors les caractères commandant la 
couleur de l'écran et du texte, placés par 
PAPER et INK, sont écrasés, détruits. Ré- 
utilisez CHR$(29) ou CTRL-] pour annu- 
ler ce mode. 


CHR$(30) renvoie le curseur dans le coin 
supérieur gauche de l'écran qui n'est pas 
effacé. 


Aucun. 


39 PRINT JE TOMBE”’: WAIT 29 


49 NEXT I 
54 : 
69 FOR I = 1 TO 29 


74 PRINT CHR$(11); : WAIT 8g 
88 PRINT ’JE REMONTE’’: WAIT 8ÿ 
98 PRINT CHR$(11); : WAIT 8g 


199 NEXT | 


Pour comprendre ce programme, il faut se souvenir que l’ORIC-1 
envoie le curseur au début de la ligne suivante après l’exécution d’un 
ordre PRINT. Sauf lorsque l’on place un ; à la fin de la ligne de l’ordre 
PRINT. 


A la ligne 79, PRINT CHRS$(11); fait remonter d’un cran le curseur. 
Le ; est indispensable, pour éviter que le curseur ne soit envoyé au début 
de la ligne suivante. 


A la ligne 89, PRINT ”JE REMONTE” affiche le message puis 
envoie le curseur au début de la ligne suivante. 
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A la ligne 99, PRINT CHRS$(11); fait remonter d’un cran le curseur, 
qui se trouve donc sur la même ligne que le message JE REMONTE 
qui vient d’être affiché. 


On exécute de nouveau la ligne 76, le curseur remonte encore. Il se 
trouve donc au-dessus du message JE REMONTE qui vient d’être 
affiché. 


On exécute la ligne 89, on affiche JE REMONTE où se trouve le 
curseur, c’est-à-dire au-dessus du message précédent, etc. 


* 


19 REM PROGRAMME ECRIT LE 14 JUILLET 
28 C1=4:C2=7:C3= 1: L= 19 
#1 K2 = 16 + C2: K3 = 16 + C3: A$ = CHR$(11) 


58 CLS: PAPER C1 
64 : 


114.3: X = 1 + (37 — L) « (1 + SIN(I)) / 2 
89 PRINT A$; NE PAS OUBLIER ; 

98 PLOT X + L, #, K3: PLOT X, #, K2 

199 GOTO 74 


A la ligne 59, CLS efface l’écran et place le curseur dans le coin supé- 
rieur gauche de l’écran. 


A la ligne 89, on utilise CHR$(11), qui se trouve dans A$ (voir 39). 
Normalement, CHRS$(11) déplace le curseur d’un cran vers le haut. 
Seulement, il se trouve que le curseur est déjà en haut de l’écran, il ne 
peut pas aller plus haut. Il faut savoir que dans ce cas, l'ORIC-1 déplace 
tout l'écran d’un cran vers le bas. C’est ce qui se produit lorsque vous 
frappez la touche ! et que le curseur est déjà en haut de l'écran. 


A la ligne 99, PLOT X + L, 4, K3 place en (X + L, @) le caractère 
dont le code ASCII est stocké dans la variable K3. K3 contient le 
nombre 17, on exécute donc PLOT X + L, 4, CHR$(17). Comme 
CHRS$17) donne un écran rouge, la ligne Ÿ est rouge depuis la colonne 
X + L jusqu’à la fin de l’écran. 


Comme K2 contient le nombre 23, PLOT X, O, K2 donne le même 
résultat que PLOT X, 9, CHRS$(23). Comme CHRS$(23) donne un 
écran blanc, la ligne @ est blanche depuis la position X jusqu’à la posi- 
tion X + L où elle devient rouge. 


Quant au reste de la ligne, avant la colonne X, il a la couleur 
définie par l’ordre PAPER de la ligne 59, bleu. 


Puis on exécute de nouveau la ligne 79, la ligne 89 qui décale tout 
l'écran d’un cran vers le bas, etc... 


Il est important de bien comprendre que les caractères CHR$(9) à 
CHR$(31) n’ont pas du tout le même effet selon qu’ils sont émis par 
un ordre PLOT ou par un ordre PRINT. 


Ainsi, le caractère CHRS$(11), émis par l’ordre PRINT de la ligne 
89 n’est pas affiché. A la place, l’'ORIC-1 déplace l’écran d’un cran vers 
le bas (car le curseur est en haut de l’écran). 


Les caractères CHR$(17) et CHRS$(23), émis par les ordres PLOT 
en 99 sont, eux, affichés et déterminent la couleur de la ligne de l’écran 
où ils se trouvent. 


— La ruse du siou enfin dévoilée: 


Ni les touches du clavier, ni l’ordre PRINT n'’affichent les carac- 
tères dont les codes ASCII sont compris entre @ et 31. A la place, 
lORIC-1 exécute un sous-programme. Sauf si l’on utilise CHR$(27) ou 
la touche ESC, qui a 27 pour code ASCII. 


ou PRINT CHR$(27); "@ ‘ affiche CHRS$(@) + texte noir 
ou PRINT CHR$(27); ‘A affiche CHR$(1) — texte rouge 
ou PRINT CHR$(27); ‘’B‘ affiche CHR$(2) — texte vert 
ou PRINT CHR$(27);"C" affiche CHR$(3) -+ texte jaune 


ou PRINT CHRS(27) ; ” Ê affiche CHRS$(4) — texte bleu 

ou PRINT CHR$(27);"E" affiche CHRS$(5) - texte violet 
ou PRINT CHR$(27): °F" _ affiche CHRS(6) — texte cyan 
ou PRINT CHR$(27):"G" affiche CHR$(7) + texte blanc 
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ESC H ou PRINT CHRS$(27:'"H" affiche CHR$(8) — fixe, hauteur 
simple, standard 


ESC I ou PRINT CHRS$(27);:'"l" affiche CHR$(9) — fixe, hauteur 
simple, semi-graphique 


ESCJ ou PRINT CHR$(27):"J" affiche CHR$(19)—+ fixe, hauteur 
double, standard 


ESC K ou PRINT CHR$(27);'""K'' affiche CHRS$(11) + fixe, hauteur 
double, semi-graphique 


ESC L ou PRINT CHRS$(27):'"L" affiche CHR$(12) + flash, hauteur 
simple, standard 


ESC M ou PRINT CHR$(27): "M" affiche CHRS$(13) + flash, hauteur 
simple, semi-graphique 


ESCN ou PRINT CHR$(27):'""N'" affiche CHR$(14)— flash, hauteur 
double, standard 


ESC O ou PRINT CHRS$(27); "O0" affiche CHR$(15) + flash, hauteur 
double, semi-graphique 


ESC P ou PRINT CHRS$(27);"P" affiche CHR$(16) + écran noir 
ESC Q ou PRINT CHR$(27);"Q" affiche CHR$(17) + écran rouge 
ESCR ou PRINT CHR$(27);"R" affiche CHR$(18) + écran vert 
ESCS ou PRINT CHR$(27);"S" affiche CHR$(19) + écran jaune 
ESCT ou PRINT CHR$(27);"T" 
ESC U ou PRINT CHR$(27);"U 


affiche CHR$(29) > écran bleu 
"affiche CHR$(21) —> écran violet 


ESC V ou PRINT CHR$(27):'""V'" affiche CHR$(22) + écran cyan 
ESC W ou PRINT CHR$(27): ""W" affiche CHRS$(23) + écran blanc 
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Exemples : 
* Tapez: 


CLS: PAPER 2: INK $ return 

PRINT NOIR’; CHR$(27); ’’A’'; ROUGE” return 
PRINT ‘NOIR’; CHR$(27); ”’T’’; ’’ FOND BLEU” return 
PRINT ’’FIXE’’; CHR$(27); ’L’’; ’CLIGNOTANT"’ return 


On obtient les mêmes effets en tapant: 


PRINT NOIR’; CHR$(27); ‘’AROUGE”’ return 
PRINT NOIR’; CHR$(27); ’’TFOND BLEU” return 
PRINT ’’FIXE’’; CHR$(27); ‘’LCLIGNOTANT”’ return 


On peut aussi taper : 


A$ = CHR$(27) + A” return 

T$ = CHR$(27) + ”’T’’ return 

L$ = CHR$(27) + ’’L’’ return 

? "NOR"; Aÿ; ROUGE” return 

? "NOIR; T$; FOND BLEU’ return 
? "’FIXE’”’; L$; ”’CLIGNOTANT’ return 


Encore une dernière précision : si le premier caractère après l’ordre 
PRINT est CHRS$(27), le premier caractère affiché sera placé dans la 
première colonne de l’écran. 


Exemple: Tapez: 


INK 7: PAPER 2 return 
PRINT CHR$(27); ‘’A’'; ROUGE” return 


Le mot ROUGE est affiché en blanc sur fond noir, bien que 
CHR$(27); ” A” commande un texte rouge. En effet, on a: 


CDICIRSESEE 
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CHRS$(27); ” A” affiche un caractère CHRS$(1), qui est placé dans 
la première colonne. Puis on affiche le mot ROUGE, qui est normale- 
ment affiché, à partir de la troisième colonne. Mais il reste dans la 
seconde colonne un caractère CHR$(7), qui avait été placé là par l’ordre 
INK 7. Et c’est pour cela que le texte est blanc. Si l’écran est noir sur 
cette ligne, c’est parce que le caractère définissant la couleur de l’écran, 
placé dans la première colonne par PAPER a été écrasé, remplacé par 
CHRS$(1). Il n’y a donc plus de caractère définissant la couleur de la 
ligne, qui est noire. 


Si vous tapez maintenant : 
PRINT CHR$(27); ‘’R’’; CHR$(27); ’’AROUGE” return 


Ça marche! CHR$(27); ”R ” place un CHRS$(18) dans la première 
colonne ce qui donne un écran vert. Puis CHR$(27); ” A” place un 
CHRS$(1) dans la seconde colonne, ce qui donne du texte rouge. Puis le 
mot ROUGE est affiché à partir de la troisième colonne. 


— De grandes lettres qui clignotent avec PRINT : 


19 CLS: PRINT 

28 PRINT CHR$(4); 

34 PRINT SPC(11); 

49 PRINT CHR$(27); ‘’N''; 
59 PRINT CHR$(27); ‘A’; 
69 PRINT ’’x#ROUGE%x* 
79 PRINT CHR$(4); 


Ne pas oublier les ; à la fin des lignes 29 à 59. 
Ceci affiche **ROUGE+** en rouge clignotant double hauteur. 


A la ligne 19, on efface l’écran et on saute une ligne, la première 
ligne de l’écran. En effet, les caractères double hauteur doivent débuter 
sur une ligne de numéro impair. Grâce à PRINT, on saute la première 
ligne de l’écran, qui a pour numéro W. 


A la ligne 29, CHR$(4), qui est un caractère de contrôle; n’est pas 
affiché. A la place, l’'ORIC-1 passe en affichage double. Ainsi, le 
message de la ligne 64, les caractères affichés aux lignes 49 et 59 seront 
affichés deux fois, ce qui est nécessaire pour obtenir des lettres double 
hauteur. 
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La ligne 39 affiche 11 espaces. 


La ligne 49 affiche un caractère CHRS$(14), les lettres situées après 
lui seront clignotants, hauteur double, jeu de caractères standard. 


La ligne 59 affiche un caractère CHR$(1), les lettres situées après 
lui seront rouges. 


A la ligne 60, on affiche le message. 
Enfin, à la ligne 79, on supprime l’affichage double. 
Le programme peut être condensé sous la forme: 


19 CLS: PRINT CHR$(4) 

24 PRINT SPC(11); CHR$(27); ’N''; 
39 PRINT CHR$(27); ‘’AxxROUGE%#x ”’ 
49 PRINT CHR$(4); 


4.6. LE MODE LORES 


LORES : Exécutable en mode immédiat ou en mode programme. Cet 
ordre efface l’écran et place un caractère CHRS$(8) dans la première 
colonne de toutes les lignes de l’écran. Les caractères qui définis- 
saient la couleur de l’écran sont donc remplacés, supprimés par des 
CHRS(8) et l’écran devient noir. 


LORES 1: Exécutable en mode immédiat ou programme. Cet ordre 
efface l’écran et place un caractère CHRS$(9) dans la première 
colonne de toutes les lignes de l’écran. Les caractères qui définis- 
saient la couleur de l’écran, placés par PAPER, sont donc rempla- 
cés, supprimés par des CHRS$(9) et l’écran devient noir. 


CHRS$(9) commande l’utilisation des caractères semi-graphiques. 
Si vous tapez: 


LORES 1: PRINT ’’COUCOU"' return 


vous verrez apparaître un drôle de dessin: il est formé de six caractères 
semi-graphiques, qui ont les-mêmes codes ASCII que les caractères stan- 
dards C, O, U. 
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4.7. LE MODE HIRES 


Ce mode permet de faire des dessins. Les trois dernières lignes de 
l'écran affichent du texte, tandis que la partie supérieure est la partie 
” dessin ”. 


Cette partie dessin est constituée de 299 lignes, numérotées de 9 à 
199, chaque ligne est constituée de 24ÿ points, numérotés de Ÿ à 239. Le 
point (9,9) est le point en haut à gauche de l’écran. 


HIRES : Exécutable en mode immédiat ou en mode programme. Cet 
ordre fait passer en mode HIRES. L’écran est effacé et devient noir. 
Il subsiste trois lignes de texte au bas de l’écran. La couleur du 
papier de ces trois lignes est celle qui existait lorsque HIRES a été 
exécutée, elle ne peut être changée en mode HIRES. De même pour 
la couleur de l’encre de ces trois lignes. 


TEXT, LORES % et LORES 1 permettent de sortir du mode 
HIRES. 


Les ordres PAPER et INK permettent, comme en mode texte, le 
choix de la couleur de l’écran et de celle de ce qui est affiché, du dessin. 


Chaque ligne est, comme en mode texte, constituée de 49 carac- 
tères. Chacun de ces 49 emplacements correspond à 6 points consécutifs 
de la ligne, on a donc 49 x 6 — 249 points par ligne. On peut utiliser les 
caractères CHR$(9) à CHR$(31) qui, exactement comme en mode texte 
définissent la couleur de l’écran, la couleur du dessin, etc. Les carac- 
tères CHRS$(32) à CHRS$(127) affichent des points. Par exemple 
CHRS$(1) définit un dessin rouge, CHRS$(64) correspond à 6 points 
éteints, de la couleur de l’écran, tandis que CHR$(127) correspond à 
6 points allumés, de la couleur de l’encre. 


Or, comme en mode texte, un ordre PAPER place un caractère 
compris entre CHR$(16) et CHRS$(23) au début de toutes les lignes de 
l'écran, les 6 premiers points de toutes les lignes seront éteints, couleur 
du fond. 


De même, un ordre INK place un caractère compris entre 
CHRS$(9) et CHRS$(7) dans le deuxième emplacement, caractère de 
toutes les lignes. Ce qui signifie encore 6 points en moins. 
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Exemple: Tapez: 
HIRES return 
L'écran est effacé et devient noir. Tapez: 


CURSET 98, 199, 9 
CIRCLE 99, 1 


Ceci trace un cercle tangent au bord gauche de l’écran. Tapez: 


INK 2 return 


Ceci a placé un caractère CHR$(2) dans le second emplacement, 
caractère, de chaque ligne. Ce qui signifie, que tous les points correspon- 
dant à ces caractères sont effacés. Plus précisément, les six points de 
numéros 6 à 11 de toutes les lignes sont effacés. Il manque donc 2 fois 
6 points au cercle. 


On constate que le petit morceau de cercle à gauche de l’écran est 
blanc. En effet, ces points correspondent à la première des 49 colonnes 
de l’écran. Ils sont placés avant le CHRS$(2), et ne sont donc pas affectés 
par lui. Au contraire le grand morceau est situé après les CHR$(2), ses 
points sont verts. 


Tapez maintenant: 


PAPER 1 return 


Le petit morceau blanc de cercle disparaît. En effet, PAPER 1 
place un caractère CHRS$(17) dans le premier emplacement de chaque 
ligne, effaçant tous les points numéro @ à 5 de chaque ligne. 


En résumé, PAPER interdit l’utilisation des points d’abscisse 


comprise entre Ÿ et 5, INK interdit l’utilisation des points d’abcisse 6 
à 11. 


— Le curseur: 


En mode texte, vous êtes habitués au petit carré clignotant que l’on 
appelle le curseur. En mode HIRES, il y a aussi un curseur. Ce curseur 
indique le prochain point qui sera tracé, comme en mode texte ou le 
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curseur indique l’endroit où sera affiché le prochain caractère. Comme 
un carré clignotant sur votre joli dessin serait du plus mauvais effet, le 
curseur haute résolution (HIRES) n’est pas affiché, il est invisible. Mais 
il n’en existe pas moins. 


CURSET argl, arg2, arg3: Utilisable en mode immédiat ou 
programme. Cet ordre sert à positionner le curseur et, si l’on désire, 
trace un point à l’endroit désigné. ”’arg 1” est l’abcisse du point, et 
doit être compris entre @ et 239. ”arg 2” est l’ordonnée du point, 
comprise entre Ÿ et 199. ” arg 3” indique si l’on doit ou pas tracer 
un point après avoir positionné le curseur en (arg 1, arg 2). 


* 


si arg 3 vaut 3, on ne trace pas le point, 


* si arg 3 vaut 1, on trace le point, avec la couleur de l’encre, 


* 


si arg 3 vaut Ÿ, on trace le point, avec la couleur du fond, de l’écran, 


* 


si arg 3 vaut 2, on trace le point en couleur inversée. C’est-à-dire que si 
le point était couleur du fond, il devient couleur de l’encre, s’il était 
couleur de l’encre, il devient couleur du fond. 


Exemples: Tapez: 


HIRES return 
CURSET 128, 199, 1 return 


ce qui trace un point au milieu de l’écran, couleur de l'encre, blanc. 
Tapez : 


CURSET 124, 1989, 9 return 


ce qui trace au même endroit un point couleur de fond, noir. On ne voit 
plus rien. Tapez: 


CURSET 128, 198, 2 return 


Avant que l’on exécute cet ordre, le point (129, 199) était couleur 
du fond. On trace donc un point couleur de l’encre. Tapez: 


CURSET 129, 198, 2 return 


Avant que l’on exécute cet ordre, le point (129, 199) était couleur de 
l’encre. On trace donc un point couleur du fond. 
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CURMOV arg 1, arg2, arg3: Utilisable en mode immédiat ou 
programme. Cet ordre est similaire à CURSET, sauf que ” arg 1” 
et ”’arg 2” représentent un déplacement et non une position du 
curseur. Les valeurs de ”’arg 1” et ”’arg 2” ne doivent pas faire 
sortir le curseur de l’écran. 


Exemple : 


19 HIRES : CURSET 129, 194, 1 
24 CURMOV 38, 4, 1 

34 CURMOV #, -— 39,1 

49 CURMOV — 39, , 1 


A la ligne 19, on place le curseur en (129, 199). A la ligne 29, on 
déplace le curseur de 39 dans le sens horizontal et de @ dans le sens verti- 
cal. Il se trouve donc en (159, 19). A la ligne 30, on déplace le curseur 
de Ÿ dans le sens horizontal, de — 39 dans le sens vertical, il aboutit donc 
en (159, 79). Enfin, on le déplace de — 39 et @, il est placé maintenant en 
(129, 70). 


DRAVW arg 1, arg 2, arg 3: Utilisable en mode immédiat ou programme. 
Cet ordre trace un segment de droite, un vecteur de coordonnées 
’arg 1” et ”arg 2”. Le trait tracé part de la position du curseur. 
Après l’exécution de cet ordre, le curseur est situé à l’autre extré- 
mité du segmènt. ”’arg 3” a la même signification que pour 
CURSET. 


* si arg 3 vaut 3, on ne trace pas le segment, 
* si arg 3 vaut 1, on trace le segment avec la couleur de l’encre, 


si arg 3 vaut O, on trace le segment avec la couleur du fond, 


+ 


* si arg 3 vaut 2, on trace le segment en inverse. Les points qui étaient 
couleur de l’écran deviennent couleur du fond et réciproquement. 


Exemple: Le programme suivant trace un rectangle: 
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19 HIRES 

24 BASE = 199: LARG = 89 

34 CURSET 128 — BASE ” 2, 199 — LARG / 2,8 
49 DRAW BASE, ÿ, 1 

58 DRAW 8, LARG, 1 

68 DRAW — BASE, #, 1 

78 DRAW $, — LARG, 1 


CIRCLE arg 1, arg 2: Utilisable en modes immédiat ou programme. 
Trace un cercle de rayon ” arg 1”. Le centre du cercle est la posi- 
tion du curseur. Après l’exécution de l’ordre, le curseur se trouve 
toujours au centre. ” arg 2” vaut 9, 1, 2 ou 3 et définit la couleur du 
cercle. Ce paramètre a la même signification qu'avec CURSET 
et DRAW. 


Exemple : 


19 HIRES 

28 FOR X = 29 TO 149 STEP 5 
39 R = X A 2 / 394 

48 CURSET X, 199, Ÿ 

58 CIRCLER, 1 

68 NEXT X 


PATTERN arg: Utilisable en mode immédiat ou programme. Cet ordre 
oblige CIRCLE et DRAW à tracer en pointillés. ” arg” doit être 
compris entre Y et 255. On exprime ”’arg” sous la forme d’un 
nombre binaire à 8 bits. Par exemple, 9 donne (XX, 255 donne 
11111111, 15 donne WW1111, 249 donne 11119999, etc. Un bit à 
1 correspond à un point allumé, un bit à Ÿ donne un point éteint. 


Exemple : 


19: HIRES 

15: GOSUB 299 

249: GOSUB 299 

1: GOSUB 299 

174: GOSUB 294 

259: GOSUB 299 

255: GOSUB 299: END 


244 PATTERN P 
219 CURSET #, Y, d: DRAW 236, 6, 1 


N OUI À W ND 
ARR 
VTT UUV< 
| 


© 
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229 A$ = STR$(P): A$ = RIGHTS (A$, LEN(A$) — 1) 
234 A$ = ’PATTERN”’ + CHR$(32) + A$ 

24 CURSET 19, YŸ + 5, 3 

259 FOR 1 = 1 TO LEN(A$) 

268 CHAR ASC(MIDS$(A$,1,1)), &, 1 

279 CURMOV 8, 4, 3 

289 NEXT I 

299 Y = Y + 25 

398 RETURN 


15 s'écrit 99991111, on obtient 
249 s'écrit 11119900, on obtient 


1 s'écrit 00000901, on obtient 
179 s'écrit 19191919, on obtient 


2509 s'écrit 11111919, on obtient 
255 s'écrit 11111111, on obtient 


Notez que le trait continu correspond à la valeur 255. 


CHAR arg 1, arg 2, arg 3: Utilisable en mode immédiat ou programme. 
En mode haute résolution (HIRES), PRINT n'affiche que sur les 
trois lignes du bas de l’écran. CHAR permet d’écrire sur le reste de 
l'écran, en mode haute résolution CHAR écrit un caractère. 
”arg 1” est le code ASCII, le numéro du caractère à écrire, arg 2 
vaut Ÿ si l’on veut un caractère standard, 1 si l’on veut un caractère 
semi-graphique. arg 3 vaut @, 1, 2 ou 3 et a la même signification 
qu'avec CURSET, DRAW et CIRCLE. Le caractère est écrit à 
l'endroit où se trouve le curseur. Plus précisément le coin supérieur 
gauche du rectangle d’encombrement du caractère correspond au 
curseur. Le curseur n’est pas déplacé par l’ordre CHAR. 


Exemples : 


* Tapez: 


HIRES return 
CURSET 128, 199, 3 return 
CHAR 65, #, 1 return 
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L'ordre CURSET place le curseur au milieu de l’écran. Puis CHAR 
fait apparaître une lettre A, dont le code ASCII est 65. Mais rassurez- 
vous, il n’est pas nécessaire de connaître les codes ASCII pour utiliser 
CHAR, grâce à la fonction ASC, qui fournit ces codes. 


* Tapez le programme: 


LL HIRES: A$ — ’DEMONSTRATION CHAR 


39 CURSET 65, 199, 3 

49 FOR 1 = 1 TO LEN(A$) 

59 CHAR ASC(MID$(A$,1,1)), 4, 1 
68 CURMOV 6, g, 3 

74 NEXT I 


* On peut aussi écrire, par exemple, verticalement : 


LA HIRES: A$ = ’’VERTICAL”’ 


34 CURSET 129, 68, 3 

49 FOR 1 = 1 TO LEN(A$) 

59 CHAR ASC(MID$(A$,1,1)), 8, 1 
68 CURMOV 8, 9,3 

79 NEXT I 


* On peut aussi afficher des nombres. Il faut d’abord les transformer en 
chaine de caractères: 


19 REM AFFICHAGE NOMBRE 
24 HIRES: N = 125.354 


34 : 

49 REM TRANSFORME EN UNE CHAINE 

5 A$ = STR$(N): A$ = RIGHT$(AS$,LEN(A$) — 1) 
6ÿ : 

79 REM AFFICHAGE 

89 CURSET 29, 199, 3 

99 FOR 1 = 1 TO LEN(A$) 

199 CHAR ASC(MID$(A$,1,1)), 4, 1 

119 CURMOV 6, 4, 3 

129 NEXT | 


POINT (arg 1, arg 2): Utilisable en mode immédiat ou programme. 
Permet de connaître l’état du point (arg 1, arg 2) de l’écran en mode 
HIRES. POINT vaut Ÿ si le point est de la couleur du fond, de 
l'écran, et vaut — 1 si le point est de la couleur de l’encre. 
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Exemple : Tapez le programme: 


19 H 
#7 es = EE OINTUÉ 99) 


49 CURSET 129, 199, 1 
P2 — POINT(129, 14 


74 WAIT 384: TEXT 
89 PRINT ”’P1 =’; P1 
99 PRINT ’’P2 ="; P2 


Le point (129, 99) est couleur du fond et P1 vaut Y. Le point (124, 
199) est couleur de l’encre et P2 vaut — 1. 


FILL arg 1, arg 2, arg 3: Utilisable en modes immédiat ou programme. 
les ordres DRAW et CIRCLE tracent des lignes. FILL permet 
d'obtenir des surfaces rectangulaires, de remplir des surfaces 
rectangulaires. En mode haute résolution, l’écran est constitué de 
200 lignes de 4@ caractères. FILL rempli ”arg 1” lignes sur 
” arg 2” caractères avec CHRS(arg 3). Le coin supérieur gauche du 
rectangle se trouve à l’endroit désigné par le curseur. Après 
l'exécution de FILL, le curseur est placé sur le coin inférieur 
gauche du rectangle. 


Exemple: Tapez: 


HIRES return 
CURSET 128, 199, 1 return 
FILL 88, 5, 63 return 


Ceci remplit un rectangle de 89 lignes, 5 caractères avec 
CHRS$(63). Un caractère correspond à 6 points sur l’écran. On a donc un 
rectangle de 89 lignes sur 5 x 6 — 39 points. 


Vous pouvez employer pour arg 3 une valeur comprise entre Ÿ et 
31. Dans ce cas, les caractères correspondants définissent la couleur du 
fond, de l’encre, etc. 


A la suite de l’exemple précédent, tapez: 


CURSET $, 125, 3 return 
FILL 39, 1, 2 return 
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CURSET place le curseur à gauche de l’écran. FILL remplit 
30 lignes sur 1 caractère de CHRS$(2). C'est-à-dire que l’on place un 
caractère CHR$(2) au début de 39 lignes. Comme CHRS$(2) définit la 
couleur d’encre verte, 39 lignes du rectangle précédent deviennent vertes. 


Les valeurs de arg 3 comprises entre 32 et 127 donnent des points. 
Pour savoir de façon plus précise ce que donne une valeur particulière, il 
faut la convertir en un nombre binaire. Chaque Q de ce nombre donne un 
point couleur de fond, chaque 1 donne un point couleur d’encre. 


Exemples : 

63 s'écrit 111111 et donne 
14 s'écrit 691919 et donne 
42 s'écrit 141919 et donne 
71 s'écrit 1999111 et donne 
56 s'écrit 111999 et donne 


Tapez : 


HIRES 
CURSET 29, 24, 3: FILL 24, 3, 63 return 
CURSET 29, 58. 3: FILL 29, 3, 71 return 
CURSET 2$. 8g, 3: FILL 29, 3, 56 return 
CURSET 28, 118, 3: FILL 29, 3, 42 return 


La valeur 63 donne 6 points blancs, on obtient un carré uniforme. 
71 donne 3 points couleur de fond, 3 points couleur d’encre, on obtient 
3 traits verticaux. 56 donne 3 points couleur d’encre, 3 points de couleur 
de fond, on obtient 3traits verticaux. Avec 42, on obtient 9 traits 
verticaux. 


Les valeurs de ”arg 3” comprises entre 128 et 255 donnent les 
mêmes résultats que les valeurs de @ à 127, mais en vidéo inverse. 


— Un peu de verdure: 
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Le REM UN PEU DE VERDURE%x%x#x 
2 . 


3% N=5:E=5: NP = 39 
49 BMAX = 2 À N: LARG = 249 -2%N x E 
58 | DIM T(BMAX — 1): PAPER 4: HIRES 


74 REM DESSIN DU POT 

84 CURSET $, 164, 3: FILL 35, 1,1 
9 FOR Y = 164 TO 169 

199 CURSET 99, Y, 3: DRAW 49, 9, 1 
119 NEXT Y 

124 : 

134 FOR Y = 174 TO 199 

149 X = (Y — 179) / 4 + 193: L = 34 + (179 — Y) /2 
159 CURSET X, Y, 3: DRAW L, 9,1 
169 NEXT Y 

ri 

189 REM TRACE DE LA PLANTE 

199 CURSET #, 4, 3: FILL 165, 1, 2 
299 CURSET 124, 163, 3: DRAW ÿ, — 
AA T(@) = 129 


239 FOR A=1TON:12= 2 AA:=12/2 
248 L = LARG / (212) : P=L / NP 

259 FOR B=1TO 1: XD =T (11 — 1) 

269 FOR C = — 1 TO 1 STEP 2: M = .3 x RND(1) 
278 FOR D = # TO NP - 1 

289 X = XD + C * D x P + E x SIN(MxD) 

298 Y = 158 — (A — 1) x NP — D + (X — 129) À 2 / 184 
399 CURSET X, Y, 1 

319 IF RND(1) < .1 THEN GOSUB 499 

329 NEXT D 

339 T(I2 — 1) = X : I2=12 —-1 

349 NEXT C 

359 11 = 11 — 1 

369 NEXT B 

379 NEXT A 

389 END 

394 : 

49g REM TRACE D'UNE FEUILLE 

ne F1 = 1: IF RND(1) > .5 THEN F1 = — 1 

429 : 

439 FOR F2 = — 1 TO 1 STEP 2: RESTORE 

44ÿ FOR F3 = 1 TO 8 

458 READ F4: CURSET X + F1 x F3, Y + F2 «x F4, 1 
469 NEXT F3 

479 NEXT F2 

489 SOUND 4, 199, d: PLAY 9, 1, 1, 399 

49 RETURN 


5 

519 DATA 2222000 

N'est-ce pas saisissant de réalisme ? On voit la plante pousser. On 
entend même le bruit des bourgeons qui éclatent. 


Les autres talents 
de l'ORIC-1 


5.1. MANIER LES CHAÎNES DE CARACTÈRES 
Pour l’ORIC-1, tout ce qui est placé entre guillemets est une chaîne 
de caractères. 
Exemple : Tapez: 
PRINT BONJOUR 
Les chaînes peuvent être stockées, rangées dans des variables ou 
des tableaux chaînes, grâce au signe d’affectation =. 


Exemple : Tapez: 


A$ = ’’QWERTYUIOP” return 
B$ = A$ return 
PRINT A$, B$ return 


LET nom $ = arg $ : Utilisable en modes immédiat ou programme. Ceci 
est une variante de signe d’affectation. N’est jamais utilisé en 
pratique. 


Exemple: Tapez: 


LET A$ = ” QWERTYUIOP” return 
PRINT A$ return 
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On peut ajouter, mettre bout à bout des chaïînes grâce au signe de 
concaténation +. 


Exemples : 

* Tapez: 
A$ = ‘’BON’’: B$ = ‘JOUR’ return 
C$ = A$ + B$ return 
D$ = B$ + A$ return 


PRINT C$ return 
PRINT D$ return 


Notez bien qu’il ne s’agit pas d’une addition, A$ + B$ ne donne pas le 
même résultat que B$ + AS! 
* Tapez: 


FOR 1 = 1 TO 19: Z$ = Z$ + ’’Z’’: NEXT return 
PRINT Z$ 


On obtient une chaîne formée de 19 caractères Z. 


Une chaîne peut ne contenir aucun caractère, on l’appelle alors 
chaine vide. 


Exemple: Tapez: 


A$ = ”’’’ return 
PRINT A$ return 


Rien n’est affiché car A$ contient une chaîne vide. 


LEN (arg $): Utilisable en modes immédiat ou programme. Donne la 
longueur, le nombre de caractères de ”’arg $”. 


Exemples : 


* Tapez: 
? LEN ("COUCOU") return 
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L’ORIC-1 répond 6 car COUCOU comporte 6 lettres. 


* Tapez: 
A$ = COUCOU” :? LEN(A$) return 


On obtient 6 comme précédemment. 


* Tapez: 
? LEN (””) return 


La longueur d’une chaîne vide vaut w. 


LEFTS (arg $, arg): Utilisable en modes immédiat ou programme. Le 
résultat de cette fonction est une chaîne formée des ” arg” premiers 
caractères de ” arg $”. 


_ Exemples: 


* Tapez: 


? LEFT$ (GATEAU ”’, 3) return 


On obtient la chaîne GAT, formée des trois premiers caractères de 
GATEAU. 


* Tapez: 


A$ = ’’TOURISTE”’ return 
B$ — LEFT$ (A$, 4) return 
? B$ return 


On obtient les quatre premières lettres de TOURISTE, soit TOUR. 


RIGHTS (arg $, arg): Utilisable en modes immédiat ou programme. Le 
résultat de cette fonction est une chaîne formée des ”arg” derniers 
caractères de ”’arg $”. 

Exemple: Tapez: 


? RIGHT$ (’’ GATEAU”, 2) return 


On obtient les deux dernières lettres, AU. 
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MID$ (arg$, argl, arg2): Utilisable en modes immédiat ou 
programme. Donne les ”’arg 2” caractères situés au milieu de la 
chaîne ”’arg $”, à partir du caractère numéro ”arg 1”. 


Exemples : 
* Tapez: 
? MID$ (’’ASDFGHIJKL”’, 4, 2) return 


On obtient une sous-chaîne de deux caractères, débutant au quatrième 
caractère, c’est-à-dire FG. 


* Le programme suivant traduit un mot en siacnarf: 


19 INPUT ’’DONNER LE MOT’; A$ 

24 B$ ="n" 

34 FOR 1 = 1 TO LEN(A$) 

49 B$ = MID$ (A$, 1, 1) + B$ 

59 NEXT | 

68 PRINT ‘TRADUCTION =’; B$: PRINT 
79 GOTO 14 


B$ est formé des mêmes lettres que A$, mais en sens inverse. 


Ainsi ABCD donnce CDBA, PIERRE donne ERREIP, MICHEL 
donne LEHCIM, CORINNE donne ENNIROC et FRANCAIS 
donne SIACNAREF. 


STR$ (arg): Utilisable en modes immédiat ou programme. Convertit le 
nombre ”arg” en une chaîne de caractères. 
Exemple : Tapez: 


A$ = STR$(25) return 
PRINT A$ return 


Ceci permet donc de ranger un nombre dans une variable chaîne, 
comme dans l’exemple ci-dessus où l’on rangeait 25 dans A$. On peut 
donc afficher un nombre avec l’ordre PLOT. 


Exemple: Tapez: 


PAPER #: INK 7 return 
A$ = STR$(372) return 
PLOT 28, 24, A$ return 
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Le nombre 372 est affiché. 


Vous remarquez sûrement que 372 est affiché en vert, bien que la 
couleur de l’encre soit 7, blanc. Tapez maintenant: 


PRINT LEN(AS$) return 


L’ORIC-I répond 4, ce qui peut surprendre car 372 n’est constitué 
que de 3 caractères. 


Pour une raison qu’il serait trop long d’expliquer, STR$ engendre 
un caractère CHRS$(2), appelé ” Start of Text”, devant ceux représentant 
le nombre. Ainsi STR$(372) est une chaîne constituée des quatre carac- 
tères CHR$(2), ” 3”, 7” et 2”. Ce qui explique pourquoi la longueur 
de A$ vaut 4. Et comme le caractère CHRS$(2) définit la couleur de texte 
verte pour le système vidéo de l’ORIC-1, on obtient un nombre affiché 
en vert. 


Tapez : 


A$ = STR$(58): A$ — RIGHTS (A$, LEN(A$) — 1) return 
PLOT 28, 21, A$ return 


Ceci permet d’éliminer le caractère CHR$(2), le nombre est affiché 
avec la couleur définie par INK. 


VAL (arg $) : Utilisable en modes immédiat ou programme. Convertit si 
possible la chaîne ” arg $”’ en un nombre. C’est l’inverse de STRS$. 


Exemples : 
* Tapez 


A$ = ”’123”’ return 
A = VAL(AS) return 
? A return 


* Le sous-programme 199 lit uniquement un nombre entier : 


19 PRINT ‘DONNER |” 
24 GOSUB 199: PRINT 1: END 


34 : 

190 A$ =" 

119 GET B$: IF B$ = CHR$(13) THEN 149 
129 IF B$ < ’’9’’ OR B$ > ’’9’’ THEN 119 
134 PRINT B$;: A$ = A$ + B$: GOTO 119 
149 PRINT: 1 = VAL(A$): RETURN 
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Ne pas oublier le ; de la ligne 139. 


ASC (arg$): Utilisable en modes immédiat et programme. Donne le 
code ASCII du premier caractère de la chaîne ”’arg $”. A chaque 
caractère, lettre, chiffre, etc correspond un numéro, que l’on 
appelle ” code ASCII”. ASC donne ces numéros. 


Exemples : 
* Tapez: 
? ASC('A”) return 
L’ORIC-1 répond 65, qui est le code ASCII de la lettre A. 
* Tapez: 
? ASC('BONJOUR”’) return 
L’ORIC-1 répond 66, qui est le code ASCII de la lettre B. 


* En mode HIRES, l’ordre CHAR permet d’afficher un caractère, 
connaissant son code ASCII. Ce code nous est donné par ASC. 
Tapez: 


19 A$ = COUCOU” 

29 HIRES 

34 CURSET 199, 199, 3 

4ÿ FOR I = 1 TO LEN(A$) 

59 B$ = MID$(A$,1,1) isoler un caractère de A$ dans B$ 
68 CHAR ASC(B$), 9,1 afficher un caractère 

78 CURMOV 1, 4, 3 

89 NEXT I 


5.2. LES CALCULS ET L'ORIC-1 


L'ORIC-1 est capable de manier des nombres compris entre 
— 1.709141 19%8 et 1.79141 19%. De plus les nombres compris entre 
— 2.93874 19-% et 2.93874 19-% sont considérés comme nuls. 
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Exemples : 
* Tapez: 
? 19 * 1E 38 return 


Le résultat de ce calcul, 19% est trop grand pour l’'ORIC-1 qui affiche 
le message ? OVERFLOW ERROR. 


* Tapez: 
? 1E 38 / 19 return 


Le résultat de ce calcul, 19-% est trop petit pour l'ORIC-1 qui le 
considère comme nul. 


Tous les nombres stockés, manipulés par l’ORIC-1 ont au plus 
9 chiffres significatifs. Tapez: 


? 12345.67891234 return 
L’ORIC-1 affiche 12345.6789, il n’y a plus que 9 chiffres. Tapez : 
? 12.34567891234 return 


L’ORIC-1 affiche 12.3456789, il n’y a plus que 9 chiffres. 


Ce qui signifie que lorsque vous tapez un nombre dans une expres- 
sion arithmétique, ou comme réponse à un ordre INPUT, il est inutile de 
taper plus de 9 chiffres de mantisse. 


Ces nombres peuvent être stockés dans des variables réelles. Il 
existe aussi un autre type de variable permettant de stocker des nombres, 
les variables entières. Une variable entière permet de stocker un nombre 
entier compris entre — 32 767 et 32 767. 


L’ORIC-I est capable d’effectuer les opérations usuelles. 


l'addition + ex:? 3+5 
la soustraction — ex:? 5—2 
la multiplication * ex:? 3%4 
la division / ex:? 7/3 

la puissance À ex:? 2A5 
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Mais cela n’est pas tout l’'ORIC-1 connaît la plupart des fonctions 
mathématiques usuelles. Mais attention : comme en mathématiques, tous 
les angles manipulés par l’ORIC-1 sont exprimés en radians. 


ABS (arg): Donne la valeur absolue d’un nombre ” arg” ABS(3.2) vaut 
3.2, ABS(-— 5.1) vaut 5.1. 


ATN (arg): Donne l’arctangente, exprimée en radians, du nombre ” arg” 
ATN(1) donne .785398163, ce qui est une valeur approchée de PI / 
4. 


COS (arg): Donne le cosinus de l’angle ” arg”” exprimé en radians. Pour 
obtenir le cosinus d’un nombre exprimé en degrés, utiliser COS (arg 
* PI / 180). 


EXP (arg): Donne l’exponentielle base e de ”’arg”. EXP(1) donne 
2.71828183, valeur approchée de e. 


INT (arg) : Donne le plus grand nombre entier inférieur ou égal à ” arg”. 
Ainsi INT(3.7) vaut 3 et INT(— 5.1) vaut — 6. 
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LN (arg): Donne le logarithme népérien de ” arg ”. ” arg ” doit être stric- 
tement positif. LN(2.71828183) donne 1. 
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LOG (arg): Donne le logarithme en base 19 de ”’arg”. ”arg” doit être 
strictement positif. LOG(19) donne 1. 


PI: Donne une valeur approchée du nombre PI — 3.14159265. 


RND (arg): Donne un nombre pseudo-aléatoire, compris entre Ÿ et 1. 
Attention: la valeur 1 est exclue, n’est jamais atteinte. 


— si ”arg” est supérieur ou égal à 1, on obtient effectivement un 
nombre aléatoire. 


— si ”arg” est nul, on obtient le même nombre que lors de la 
dernière utilisation de RND. Tapez: 

? RND(1) return 

Vous obtenez un nombre aléatoire. Tapez maintenant : 


? RND(@) return 
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Vous obtenez le même nombre. 


— si ”arg” est négatif strictement, on obtient toujours le même 
résultat pour une valeur donnée de ”arg”. Par exemple, 
RND(-— 901) vaut toujours .594931245. 


SGN (arg): Donne le signe de arg: 


— vaut — 1 si ”arg” est négatif strictement, 
— vaut ÿ si ”arg” est nul, 
— vaut 1 si ”arg” est positif strictement. 


SIN (arg): Donne le sinus du nombre ”’arg”” exprimé en radians. Le 
sinus d’un angle exprimé en degrés est SIN (arg x PI / 189). 
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SQR (arg): Donne la racine carrée de ”’arg”. ”’arg” doit être positif. 


TAN (arg): Donne la tangente du nombre ”arg” exprimé en radians. La 
tangente d’un angle en degrés est TAN (arg * PI / 180). 


Voici deux exemples de programmes traçant des courbes: 
* A REM SINUSOIDE AMORTIE 


34 HIRES 
# M = 2: L = —917 


og FOR X = # TO 2 

74 Y = SIN(MxX) x EXP * 199 
84 SEL X, 199 — Y, 

9f NEXT X 


* 1 REM FIGURES DE LISSAJOUS 


39 HIRES 
49 INPUT ‘DONNER M”; M: M = INT(M) 
58 INPUT ‘DONNER N°: N:N = INTIN) 


6Û : 
7e PAS = PI/ (59 x SQR (MxN)) 


8 : 

99 FOR T = # TO 2 * PI STEP PAS 
199 X = COS(TxM) x 99 + 129 

119 Y = SIN(T4xN) * 99 + 199 

129 CURSET X, Y,1 

139 NEXTT 
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Si vous donnez 1 pour M et 1 pour N, on obtient un cercle. Le 
couple (1,4) donne une figure un peu plus compliquée, le couple (7,9) 
donne une figure encore plus complexe. Vous pouvez essayer d’autres 
valeurs. 


En plus des fonctions que connaît l'ORIC-1 comme ABS, ATN, 
etc, vous pouvez définir vous-même, puis utiliser d’autres fonctions 
grâce aux ordres DEF FN et FN. 


DEF FN nom 1(nom 2) — expression arithmétique : Cet ordre n’est utili- 
sable qu’en mode programme. Il définit la fonction ”nom 1”. 
Nom 1” est le nom de la fonction. Les noms de fonctions sont 
semblables aux noms de variables réelles. L'ORIC-1 ne considère 
que les deux premiers caractères du nom de la fonction. 


FN noml (arg): Cet ordre est utilisable en mode immédiat ou 
programme. Donne la valeur de la fonction ”’nom 1” pour ”’arg”. 


Ceci est plus simple à comprendre sur un exemple, que voici. Tapez 
le programme suivant : 


19 REM NES nr FONCTIONS 
24 DEF FND1(X) = 
UE DEF FND2(X) = Fa — 1) /2 


58 DEF FNRAD(X) = X * PI / 189 


69 DEF FNCS(X) = COS(FNRAD(X)) 
74 DEF FNSN(X) = SIN(FNRAD(X)) 


Exécutez ce programme, en tapant RUN return. Ceci définit cinq 
nouvelle fonctions, que vous pouvez maintenant utiliser. Tapez: 


? FEND1(1) return. On obtient 2 «x 1 + 1, soit 3. Tapez 
? FEND2(2+FND1(1)) return. 2 + FND1(1) vaut 2 + 3= 5. 


On obtient donc (5 — 1) / 2, soit 2. Tapez: 


? FNCS(39) return. On obtient cosinus de 39 degrés, soit 
.866925494 
? FNSN(39) return. On obtient le sinus de 39 degrés, soit 5. 
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La fonction FNRAD convertit en radians un angle exprimés en 
degrés. Aussi FNCS(X) — COS (FNRAD(X)) donne le cosinus d’un 
angle exprimé en degrés. De même, FNSN(X) donne le sinus d’un angle 
exprimé en degrés. 


5.3. LA MUSIQUE — LES BRUITAGES 


Vous connaissez déjà les ordres: 


ZAP 
PING 
SHOOT 
EXPLODE 


qui produisent chacun un bruitage. L'ORIC-1 possède d’autres possibili- 
tés sonores que nous allons maintenant exposer. 


L’'ORIC-1 est capable de produire trois notes de musiques 
distinctes et un bruit ressemblant vaguement à celui d’une cascade (bruit 
blanc). 


Vous pouvez : 


— Choisir, modifier séparément la hauteur de chacune des trois notes, 
grâce aux ordres MUSIC ou SOUND. Chacune de ces notes est 
aussi appellée ” canal”. 


— Jouer séparément ou simultanément les trois notes et le bruit, grâce à 
l’ordre PLAY. 
MUSIC canal, octave, note, Ÿ: Cet ordre choisit la note joue par un 


canal. 


* canal: vaut 1, 2 ou 3. C’est le numéro du canal, de la note, dont on va 
choisir la hauteur. 


* octave: de Ÿ à 6. Ü donne les notes les plus graves. 
* note: de 1 à 12. 


1 2 3 4 5 6 7 8 9 19 11 12 
do dox ré re# mi fa fa# sol sol# la la# si 
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SOUND canal, période, @: Cet ordre a la même fonction que MUSIC. 
* canal: vaut 1, 2 ou 3. 


* période : détermine la hauteur du son. Plus ce nombre est petit et plus 
la note est élevée. 


PLAY canaux, Ÿ, enveloppe, durée : Cet ordre joue une ou plusieurs des 
notes. 


* canaux: de Ÿ à 7: indique quelles notes doivent être jouées. 


silence 

jouer canal 1 seul 
jouer canal 2 seul 
jouer canaux 1 et 2 
jouer canal 3 seul 
jouer canaux 1 et 3 
jouer canaux 2 et 3 
jouer canaux 1, 2 et 3. 


NOUBROUN = © 


* enveloppe de 1 à 7. Définit la façon de jouer, l’évolution du volume 
sonore au cours du temps. 


1 LE la note est attaquée avec force et le son 
Re ane 7 décroit. 


durée 

2 le son augmente pour s'annuler d'un coup. 
durée 

3 
durée 


144 


durée 
6 AA IL 
Be 
durée 
7 dl 
E———— 
durée 


Les valeurs 1 et 2 donnent des notes de durée déterminée, tandis 
que les valeurs 3 à 7 donnent des sons continus. 


* durée de @ à 32 767. 


Exemples: Tapez CTRL-F pour rendre silencieux le clavier, puis: 
MUSIC 1, 3, 1, # return 


Ceci définit la hauteur de la note du canal 1. Ce sera le ” do” du 
troisième octave. Tapez maintenant : 


PLAY 1, 4, 1, 1 998 return 


On joue la note du canal 1. On a choisi l’enveloppe 1, le son 
décroit. Tapez : 


PLAY 1, 8, 2, 1 998 return 
On joue encore la note du canal 1, mais avec l’enveloppe 2. Tapez : 
MUSIC 2, 3,5, À return 


Ceci définit la hauteur de la note du canal 2. Ce sera le mi” du 
troisième octave. Tapez: 


MUSIC 3, 3, 8, Ÿ return 
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Ceci définit la hauteur de la note du canal 3, le ” sol” du troisième 
octave. Tapez: 


PLAY 7, 4, 5, 598 return 


On joue les trois notes simultanément, do-mi-sol. On a choisi 
l'enveloppe 5, on obtient un son continu. En frappant CTRL-F puis une 
touche quelconque, le son est stoppé. 


PLAY Ÿ, canaux, enveloppe, durée: Similaire à PLAY canaux, Ÿ, enve- 
loppe, durée. On ajoute le bruit en sortie. 

Exemple : Tapez CTRL-F puis: 
MUSIC 1, 3, 8, 4 return 


La note du canal 1 sera le ” sol” du troisième octave. 


PLAY #, 1, 4, 298 return 
On joue la note du canal 1 à laquelle on ajoute le bruit. 
PLAY 9, #, 4, d Cet ordre permet de faire le silence. 
Cet ordre permet de faire le silence. 
MUSIC canal, octave, note, volume : ” Volume” est un nombre compris 
entre 1 et 15. Ceci défini une note et la joue immédiatement, sans 


qu’il soit besoin d’utiliser PLAY. Le nombre ” volume ” représente 
le niveau sonore. On obtient un son continu. 


Exemple: Tapez: 
MUSIC 1, 3, 18, 15 return 


On obtient un ”la”. 


SOUND canal, période, volume: Définit une note et la joue. 


* canal: de 1 à 3, numéro du canal joué 
4 joue le canal 1 et le bruit 
5 joue le canal 2 et le bruit 
6 joue le canal 3 et le bruit 


* volume: de 1 à 15. 
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return 
9 THEN 89 


19 REM MENUET JS BACH (EXTRAIT) 


28 FOR 1 = 1 TO 2: READ K, N 


3 IFN 
84 WAIT 199: PLAY 9, 4, 4, d: END 


Pour finir, voici un programme jouant un petit morceau de 
49 MUSIC I,K,N,# 
59 NEXT I 
68 PLAY 3, 9, 7, 19: WAIT 24 
79 GOTO 19 


SOUND 1, 299, 19 
musique : 


Exemple: Tapez: 


RR 
CLS Rs ai co m 

co M mm NI CO M M en DNNOMmMmADmMmmMmE D PE PSN 
SR LS nn Lane nn ee QI PR NI 2 ‘ONE ss aT ass s MANN MM oO 
NNN NN LS ST NSWSNNN NN PORN à DER 
na ati a ee ON, 2e Om me at ans CONQ = D NN Tr 
MR DO MR DO < à < DO TL AMNR DO MR © © Te LM see 
ss < «D À SL OU DO + © + mm à à LD OL LL à M mm LR © © 
TM TT LS OT ST LT TM et + mm SOL LM. S ES de 
SAN NT NS AU LM Lis No .NMm 
OMAN LOMEON Le sm FO | OMAN OMAN OT 7 se ee 
PRES Le PSS A cu RS SN SAT SN NEO D 
NA ST ST NE & UN SUN SE ON er EXT NES = 

st «TT Sr . SR = «TT s = ES = 
NS 2 2m Le set su mia cie Le cie «Le 
TT © © Fr © OUEN M ET «am mr OO To D Dr OL, | LR © oO 
SR S SU SU S SE à LS HS PU SMMLR. ES LUS LS ra s TMS à< = = 
DO M + M MH M OL NM SM TH HOMO OO MmMmm 
Sr SR SUR de ee LS N'a SM M LS ne SR RS . NME 2: Se 
CO CO GO CO CO CO CO CO Fr CO r— OO FR | 00 © CO © OO DO Mr . mc m 
SERRES ES ESS SAS ON LS Late ES ml Te 5 = NON ss 
NNRNR NN ON ON SN NE NE ON NN NN 
SA RS SU SL SUN SNS + SOUD 4 Es S à = . « «UN . = = 
CO © © CO CO CO CO CO EN EN mi mm me © © © CO © © © Ge e Ses 
CD SR SR OÙ OÙ SR ST OT 7 O9 O0 O0 0 7 ff 7 7 oo 
LLLLLLLLLLLL LLLLLL LL LL LL LLLLL LL AL 
RÉRRRRRRRRRR HÉRRRRRRÉRRERR HHRRRRRRE 
LLLLLLLLLLLL LLLLLLLLLLLL LLLL LL LL 
(aJalala)lalalalalalalala NalalalalalalalalalalalaRtalala)alalalala) 
BENMNIÉINDORDOS-NSBENMIÉNONRDOS-NSENMAIMUON 
SBSESSSSSSSEEER SSSR SSSR RRRSRSRRERRRS 
La à) K 9) | NAN NNNONO M mn mn mn mn mm 
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1448 DATA 6, 4 


5.4. GESTION DE LA MÉMOIRE 


La mémoire de l’ORIC-1 est composée de 65 536 cases, que l’on 
appelle des ”octets”. Dans chaque octet on peut stocker un nombre 
entier compris entre Ÿ et 255. Chaque octet est repéré par un numéro 
compris entre Ÿ et 65 535. Ce numéro est appelé ”’ adresse” de l’octet. 


Vous pouvez vous demander comment ces nombres, 255 et 65 535 
ont été choisis. C’est simple : le ” cerveau ” de l’'ORIC-1, son micropro- 
cesseur, ne sait compter qu’en binaire. Vous êtes habitués à compter en 
base dix, où il y a dix chiffres, 9, 1, 2, …, 9. En binaire, il n’y a que deux 
chiffres, Ÿ et 1, que l’on appelle bits”. 


Un octet est constitué de huit chiffres binaires ou bits. Le premier 
de ces nombres est WWW, ce qui s’écrit Ÿ en base dix. Le dernier 
de ces nombres est 11111111, ce qui vaut: 


1+21+22 +23 + 24 + 25 + 26 + 27 — 2565 en décimal. 


Une adresse est elle constituée de 16 chiffres binaires, de 16 bits. Le 
premier de ces nombres est AMMWOMMMNMMNN ce qui vaut Ÿ en base 
dix. Le dernier de ces nombres est 1111111111111111, ce qui vaut: 


1+21+22 +. + 214 + 215 — 65 535 en base dix. 


Nous avons donc le choix entre deux façons d’écrire les nombres : 
en base deux, en binaire comme le fait le ” cerveau” de l’ORIC-I1, ou 
bien en base dix, comme vous le faites. Mais avec un peu de pratique, on 
constate rapidement que: 


— la base deux n’est pas pratique, car il faut écrire des tas de chiffres, 8 
pour un octet, 16 pour une adresse, 


— Ja base dix n’est pas non plus pratique, car on obtient des valeurs 
bizarres comme 255 et 65 535, la conversion binaire-base dix n’est 
pas aisée. 


Aussi on compte souvent en base seize, en hexadécimal. Parce que 
seize est un multiple de deux, les conversions binaires-hexadécimal sont 
aisées. Un octet s’écrit avec deux chiffres hexadécimaux, une adresse 
s'écrit avec quatre chiffres hexadécimaux. Les chiffres hexadécimaux 
sont 9, .1, 2,3, 4; 5, 6, 7, 8, 9, À, B, C D, EF. 
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Ainsi 255 s'écrit FF en hexadécimal, 65 535 s’écrit FFFF en 
hexadécimal. 


On a les correspondances suivantes : 


00010000 
00100000 
00110009 
01000000 
01010000 
01100000 
01110000 
10000000 
10010000 
19100000 
10119900 
11000000 
11919000 
11100009 
11110009 
11111111 


© © - Oo 01 PB & ND = © 


(5) 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 


L’ORIC-I1 sait compter en hexadécimal. Pour distinguer les 
nombres en base dix de ceux en base seize, on place devant ces derniers 
le caractère #. 


Exemple : Tapez : 


? # FF return 


L’ORIC-1 affiche ce nombre. Comme les nombres affichés par 
l’ordre PRINT le sont en base 19, on obtient 255. Tapez: 


2 Æ FFFF return 


On obtient 65 535. Tapez: 


? # 19 + 19 return 
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Le premier nombre est en hexadécimal, et vaut 16 en base dix. Le 
second nombre est en base dix, le résultat vaut 26. 


De cette façon vous pouvez donc convertir des nombres hexadéci- 
maux en nombres décimaux. 
HEXS(arg): Utilisable en mode immédiat ou programme. Ceci donne 


une chaîne, qui représente le nombre ”arg” en hexadécimal. 


Exemple: Tapez: 


? HEX$(255) return 
? HEX$(65 535) return 


De cette façon, vous pouvez convertir des nombres décimaux en 
hexadécimaux. 


Voici maintenant la ”carte mémoire” de l’ORIC-I, c’est-à-dire 
comment les 65 535 octets sont utilisés, ce que l’on peut y trouver. 
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Mode HIRES 


ROM 
basic de l'ORIC-1 


caractères 
semi-graphiques 


caractères 
standards 


programme 
basic 


(début en # 596) 


4 000 à 4 209: 


rien 


entrée/sortie 


FFFF-65 535 


CO09-49 152 
BFE0-49 129 


A900-49 969 


9C99-39 936 


98 99-38 912 


500-1 280 


400-1 924 


300-768 
209-512 
190-256 


0-9 


Mode TEXT 


ROM 
basic de l'ORIC-1 


écran 


caractère 
semi-graphiques 


caractères 
standards 


programme 
basic 


(début en # 590) 
4 000 à 4 260: 
rien 


adresses 
entrée/sortie 


pointeurs 


pile du 6 592 


page Ÿ utilisée 


FFFF-65 535 


CO09-49 152 
BFEQ-49 129 


BB80-48 000 


B800-47 194 


B400-46 G89 


9809-38 912 


590-1 289 


400-1 924 


300-768 
209-512 
190-256 


0-9 
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Pour un ORIC-1 16 K, oter 8 999 (hexa) aux adresses, sauf pour la 
ROM. 


PEEK (arg): Utilisable en modes immédiat ou programme. Cet ordre 
permet de lire le nombre rangé dans l’octet dont l’adresse est ” arg”’. 
Le résultat est un nombre compris entre Ÿ et 255. 


Exemple: Tapez: 


PAPER 2: INK Ÿ return 
CLS return 
PRINT PEEK(48 949) return 


L’octet d’adresse 48 949 est celui ou est rangé le premier caractère 
de la ligne @ de l’écran. Comme vous avez exécuté PAPER 2, ce carac- 
tère est un CHR$(18). On obtient 18 pour résultat. Tapez: 


PRINT PEEK(48 941) return 


L’octet d’adresse 48041 correspond au second caractère de la 
ligne 9. L'ordre INK ÿ y a placé un CHR$(). On obtient donc Ÿ comme 
résultat. 


POKE arg 1, arg 2: Utilisable en modes immédiat ou programme. Cet 
ordre écrit, place le nombre ” arg 2” dans l’octet d’adresse ” arg 1”. 
”arg 1” doit être compris entre @ et 65 535 (ou 9 et #FFFF) 
tandis que ” arg 2” doit être compris entre Ÿ et 255 (ou Ÿ et #FF). 


Aux adresses comprises entre 49 152 et 65 535 (#C000 et ZFFFF) 
se trouvent des ROM, des mémoires mortes. On les nomme ” mortes” 
parce que leur contenu est figé, et ne peut pas être modifié. L’ordre 
POKE n’a donc aucun effet à ces adresses. 


L’ORIC-1 utilise les octets d’adresses comprises entre Ÿ et 1 424 (9 
et #490) pour ses besoins personnels. Si vous exécutez un ordre POKE 
dans de ces octets, vous risquez fort de perturber, de ” planter ” l’'ORIC- 
1. 


Dans ce cas, utiliser la touche reset, ou débrancher l’ORIC-I. 
Exemple: Les 4@octets de 48 à 48439 correspondent aux 


49 caractères de la ligne du haut de l’écran en mode texte, celle ou est 
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affichée ” CAPS”. POKE vous permet d’écrire dans ces octets et donc 
de faire apparaître quelque chose sur cette ligne. 


* Tapez: 
POKE 48 929, 65 return 


65 est le code ASCII de la lettre A. Un A apparaît donc. 


* Tapez: 


5 A$ = CECI EST MON ORIC-1”’ 
29: 

39 FOR 1=1 TO LEN(A$) 

49 PONE 48 999+1, ASC(MID$(A$, 1, 1)) 
58 NEXT I 


Ce programme fait apparaître un message sur la première ligne 


DEEK (arg): Utilisable en modes immédiat ou programme. Fournit le 
contenu de l’octet d’adresse ” arg”” augmenté de 256 fois le contenu 
de l’octet d’adresse ”arg + 1”. 


Une adresse est un nombre binaire à 16 bits. Lorsque l’on désire 
stocker en mémoire un tel nombre, on utilise deux octets contigus. Les 
huit bits de droite de l’adresse, appelées aussi ” bits de poids faible” sont 
rangées dans un premier octet, tandis que les huit bits de gauche, 
appelées ”’bits de poids forts” sont rangés dans l’octet suivant en 
mémoire. 


DEEK (arg) donne le même résultat que PEEK (arg) + 256 * 
PEEK (arg + 1). Ce résultat est compris entre Ÿ et 65 535, et est exacte- 
ment la valeur du nombre à 16 bits stockées aux adresses ”’arg” et ”arg 
+ 17. 


DOKE arg 1, arg 2: Utilisable en modes immédiat. ” arg 1” et ” arg 2” 
doivent être compris entre Q et 65 535. Place aux adresses ” arg 1” 
et ”’arg 1 + 1” le nombre à 16 bits ”’arg 2”. 


FRE(0): Fournit le nombre d’octets libres, c’est-à-dire qui ne sont pas 


utilisés par un programme basic, ses variables, etc. Utilisable en 
modes immédiat et programme. 
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Exemple : 
PRINT FRE(@) 


FRE(””): A chaque fois que l’on stocke une chaîne dans une variable 
chaîne, de la mémoire est consommée”. Lorsque l’on affecte 
successivement plusieurs chaînes à une même variable, toutes ces 
chaînes subsistent en mémoire, et l’encombrent. FRE(” ”) fait le 
ménage en mémoire, c’est-à-dige élimine toutes les vieilles chaînes 
qui ne servent plus à rien. Puis FRE(” ”) indique le nombre d’octets 
disponibles, comme FRE(ÿ). 


GRAB-RELEASE: Vous avez peut être remarqué sur la carte mémoire 
que la zone #98%-#B3FF est inutilisée en mode TEXT. Un ordre 
GRAB, exécuté en mode immédiat ou programme, autorise 
lORIC-I1 à utiliser cette zone. Ceci peut être utile pour un 
programme vorace de mémoire, utilisant de grands tableaux. Mais 
alors, il devient impossible d’utiliser le mode HIRES, car la zone 
#9800-#B3FF empiète sur la zone réservée à l’écran en mode 
HIRES. Il faut exécuter un ordre RELEASE, pour libérer la zone 
#9800-#B3FF. 


Exemple : Tapez: 


GRAB return 
HIRES return 


Vous obtenez le message ? DISP TYPE MISMATCH ERROR, 
car l'ORIC-1 ne peut passer en mode HIRES lorsque la zone #9800- 
#B3FF est utilisée, allouée. Tapez: 


RELEASE return 
HIRES return 


Cette fois, lORIC-1 accepte de passer en mode HIRES. 


HIMEM ?” arg ” : Utilisable en modes immédiat et programme. Les octets 
d’adresses #A6 et Æ#A7 contiennent une adresse que l’on appelle 
” plafond de la mémoire”. Il faut savoir que l’ORIC-1 s’interdit 
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d’utiliser les octets d’adresse supérieure à ce ” plafond”. L'ordre 
HIMEM modifie la valeur, l’adresse en #A6 et #A7, pour lui 
donner la valeur ”’arg”. On utilise HIMEM pour abaisser ce 
plafond, aussi la zone située au-dessus de ce plafond, les octets 
d’adresses supérieures ne seront pas utilisés par l’'ORIC-1. Vous 
pourrez donc utiliser ces octets pour y placer par exemple des 
programmes en langage machine. 


Exemple: Tapez: 
? DEEK(# A6) return 
Vous obtenez, pour un ORIC-1 48 K, le nombre 49 793. Tapez: 


HIMEM 48 998 return 
? DEEK (# A6) return 


Vous obtenez cette fois-ci 49 000. 


Le ” cerveau” de l’'ORIC-1 est un microprocesseur, de type 6 592. 
Cette petite bête ne comprend pas le basic, mais un langage beaucoup 
plus simple que l’on nomme ”langage machine”. Par exemple, ce que 
lon appelle ”’le basic de lORIC-1”, est, concrètement, un gros 
programme écrit en langage machine. Il est rangé dans la ROM située 
entre les adresses #C999 et #FFFF. En permanence, le microprocesseur 
exécute ce programme très compliqué qui permet à l’ORIC-1 de 
comprendre le basic. 


Un programme en langage machine est une suite de nombres, 
d’octets, quasiment incompréhensible par un être humain mais que le 
microprocesseur, lui, comprend. Il est beaucoup plus long, pénible et 
ennuyeux d’écrire un programme en langage machine plutôt qu’en basic. 
Par contre, ces programmes sont exécutés beaucoup plus rapidement, 
car ils sont directement compréhensibles par le microprocesseur. 


Nous n’exposerons pas ici le langage du 6 592, qui représente un 
livre à lui seul. Rassurez-vous, il existe de nombreux ouvrages à ce sujet, 
comme par exemple ”L’assembleur facile du 6 592”, aux éditions 
Eyrolles (collection ” micro-ordinateurs ”). 


Par contre, nous allons exposer comment utiliser, comment appeler 
un sous-programme en langage machine depuis un programme basic. Il 
existe quatre méthodes. 
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CALL arg: Appelle un sous-programme en langage machine débutant à 
l’adresse ”arg”. Une instruction RTS provoque un retour au 
programme basic. CALL est utilisable en modes immédiat ou 
programme. 


USER (arg): Utilisable en modes immédiat ou programme. Lorsque 
lORIC-1 rencontre la fonction USER, il commence par calculer la 
valeur de ”’arg”, on obtient un nombre réel qui est rangé en DS, 
D4, D3, D2, DI et D@. Puis l’'ORIC-I saute à un sous-programme 
en langage machine dont l’adresse a été définie par DEF USR — 
(DEF USR = adresse). Lorsqu’on rencontre une instruction RTS, 
on retourne au programme basic. L'ORIC-1 considère alors que le 
nombre qu’il trouve en D5-D$ est le résultat de la fonction. 


Exemple: Nous allons transformer USR en fonction PEEK. Tapez et 
exécutez le programme suivant : 


19 REM USR DEVIENT PEEK 
28 A = # 499: DEF USR=A 
34 FOR I=A TO A+12 

49 READ V: POKE I, V 


5f NEXTI 

68 : 

78 DATA #24, #67, # D8 ’JSR $D867 
88 DATA #4 AÛ,# 00 'LDY #$9 
99 DATA # B1,# 33 ’LDA ($33), Y 
199 DATA x AB !TAY 

119 DATA # A9, x OÙ !'LDA # Sf 


129 DATA # 4C, x D5, #D8  ’JMP $D8D5 
Tapez maintenant : 


? USR (# BB89+37) return 
On obtient 65 qui est le code ASCII du A de CAPS. 


? PEEK (#BB89+37) return 


donne le même résultat. 


A la ligne 29, l’ordre DEF USR — signale à l’'ORIC-1 que le sous- 
programme qu’il devra appeler en rencontrant USR débute en #44. La 
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boucle 39-59 place en mémoire, à partir de #49, les nombres qui consti- 
tuent le sous-programme en question. 


Il est utile de savoir que: 


— le sous-programme débutant en #D867 convertit le nombre réel 
situé en #D0-#D5 en un entier à deux octets, qui est placé en #33- 
#34. L’octet de poids faible est en #33, l’octet de poids fort est en 
#34. 


— Inversement, pour convertir un entier à deux octets en nombre réel, 
on utilise le sous-programme débutant en #D8D5. Il faut placer 
l’octet de poids faible dans le registre Y, l’octet de poids fort dans 
laccumulateur A du microprocesseur, et appeler Æ#D8DS5. En retour, 
le résultat se trouve en #DŸ-#D5. 


— La zone #Dÿ-#D5 est appelée ”accumulâteur flottant”. Tous les 
sous-programmes effectuant des calculs sur des nombres réels déli- 
vrent leur résultat en cet endroit. 


& (arg): À le même effet et s’utilise comme USER. Seule différence : 
l'adresse de début du sous-programme en langage machine doit être 
donnée à l’'ORIC-1 en exécutant DOKE #2FC, adresse. 


Exemple: Tapez et exécutez: 


19 REM & DEVIENT PEEK 

24 A = # 499: DOKE # 2 FC, À 
34 FOR I=A TO A+12 

49 READ V: POKE |, V 

58 NEXTI 


79 DATA # 24, 
88 DATA # AB, 


# 67, # DB 
# 
99 DATA # B1,# 
# 
4 


ÿ 
3 
ÿ) 


& S 


A 

B 
199 DATA # AB 
119 DATA # A9, 


129 DATA # 4C, # D5, # D8 


Le sous-programme en langage machine est exactement le même 
que pour l’exemple précédent. Quant au programme basic, seul l’ordre 
DEF USR a été modifié, remplacé par DOKE. Tapez: 


? & (Æ#BB89+37) return 
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Vous obtenez encore 65. 


! Lorsque l’ORIC-1 rencontre !, en modes im- 
DOKE #2F5, adresse médiat ou programme, il exécute le sous- 
programme dont l’adresse est rangée en 
#2F5. Une instruction RTS renvoie au basic. 


Exemple: Dans l’exemple suivant, l’ordre ! fait passer en vidéo inverse 
tous les caractères déjà affichés sur la ligne ou se trouve le curseur. 
Tapez et exécutez le programme: 


19 REM ! DONNE DES CARACTERES INVERSES 
28 A=4499: DOKE #2 F5, A 

39 FOR I=A TO A+15 

49 READ V: POKE I, V 

5f NEXTI 


78 DATA# A, #27 'LDY # 39 
88 DATAZ#B1, #12 'LDA ($12), Y 
99 DATA #C9,# 21 ’CMP# $21 
198 DATA# 9,# 84 ’BCC $49C 
119 DATA # 09, # 89 '’ORA# $89 
124 DATA# 91,4 12 ’STA ($12), Y 
139 DATA # 88 ’DEY 

149 DATA # 19,#F3 ‘BPL $492 
159 DATA#64 'RTS 


Tapez maintenant : 


? ""CARACTERES EN VIDEO INVERSE” ; : ! return 
? "PETITE DEMONSTRATION ; : ! return 


Pour stocker vos sous-programmes en langage machine dans la 
mémoire de l’'ORIC-1, vous avez deux possibilités : 


— les placer entre #499 et #42, cette zone n’est pas utilisée par 
PORIC-I1, 


— utiliser un ordre HIMEM pour abaisser le plafond de la mémoire, et 
placer ces sous-programmes au-dessus du nouveau plafonc. 


Ainsi, l'ORIC-1 respectera et ne détruira pas les programmes 
binaires. 
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Annexes 


TABLE ASCII 


Effet de la touche ou 


ASCII de PRINT CHR$ (code) 

(e) pas de touche Aucun 

1 CTRL-A CTRL-A relit un caractère 
sur l'écran. 

2 CTRL-B Aucun 

3 CTRL-C CTRL-C interrompt un 
programme basic. 

4 CTRL-D Provoque un affichage 
double. Les caractères 
suivants seront affichés 
deux fois chacun. Pour 
annuler, utiliser de nou- 
veau CHR$(4) ou CTRL-D 

5 CTRL-E Aucun 


Effet de PLOT X, Y, 
CHR$ (code) 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont noirs. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont rouges. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont verts. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont jaunes. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont bleus. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont violets. 
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19 


11 


12 
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Touche 


CTRL-F 


CTRL-G 


CTRL-H ou + 


CTRL-I ou > 


CTRL-J ou Ÿ 


CTRL-K ou 


CTRL-L 


Effet de la touche ou 
de PRINT CHRS (code) 


Supprime le ‘’plop” que 
l'on entend lorsque l'on 
frappe une touche. Pour 
retrouver le bruit, réutili- 
ser CHR$(6) ou CTRL-F. 


Fait retentir PING. 


Déplace le curseur un 
cran à gauche. 


Déplace le curseur un 
cran à droite. 


Déplace le curseur un 
cran vers le bas. 


Déplace le curseur un 
cran vers le haut. 


Efface l'écran. 


Effet de PLOT X, Y, 


CHRS$ (code) 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont bleus ciels 
(cyan). 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X sont blancs. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en hauteur simple, 

— en affichage fixe, 

— jeu de caractères 
standard. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne Y seront: 

— en hauteur simple, 

— en affichage fixe, 

— jeu de caractères semi- 
graphique. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage fixe, 

— jeu de.caractères 
standard. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage fixe, 

— jeu de caractères semi- 
graphique. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en simple hauteur, 

— en affichage clignotant, 
— jeu de caractères 
standard. 


Code 
ASCII 


13 


15 


16 


17 


18 


19 


29 


21 


Touche 


CTRL-M ou 
RETURN 


CTRL-N 


CTRL-0O 


CTRL-P 


CTRL-Q 


CTRL-R 


CTRL-S 


CTRL-T 


CTRL-U 


Effet de la touche ou 


de PRINT CHRS (code) 


Envoie le curseur au 
début de la ligne suivante. 


Efface la ligne ou se 
trouve le curseur. 


Aucun. 


Aucun. 


Supprime le curseur. Pour 
le retrouver, réutiliser 
CHRS$(17) ou CTRL-Q. 


Aucun. 


Supprime l'affichage. 
Pour le rétablir, réutiliser 
CHR$(17) ou CTRL-S. 


Passage en minuscules. 
Pour obtenir une majus- 
cule, utilisez SHIFT. Pour 
revenir en majuscules, 
réutilisez CHR$(20) ou 
CTRL-T. 


Aucun. 


Effet de PLOT X, Y, 
CHRS (code) 


Tous les caractères affichés 
sur la ligne Y et situés après 


‘la colonne X seront: 


— en simple hauteur, 

— en affichage clignotant, 
— jeu de caractères semi- 
graphique. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage clignotant, 
— jeu de caractères 
standard. 


Tous les caractères affichés 
sur la ligne Y et situés après 
la colonne X seront: 

— en double hauteur, 

— en affichage clignotant, 
— jeu de caractère semi- 
graphique. 

Le fond (PAPER) de la ligne 


Y, à partir de la colonne X, 
sera noir. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera rouge. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera vert. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera jaune. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera bleu. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera violet. 


161 


Code 
ASCII 


22 


23 


24 


25 


26 


27 


28 


29 


162 


Touche 


CTRL-V 


CTRL-W 


CTRL-X 


CTRL-Y 


CTRL-Z 


CTRL-[ ou ESC 


CTRL-/ 


CTRL-] 


Effet de la touche ou 


de PRINT CHRS (code) 


Aucun. 


Aucun. 


CTRL-X annule la ligne en 
train d'être frappée. 


Aucun. 


A la même action que 
ESC. Voir ci-dessous. 


Ce caractère n'est pas 

affiché, et ne déplace pas 
le curseur. Par contre, le 
caractère suivant sera af- 
fiché après que ses bits b, 
et Ds aient été mis à zéro. 


Aucun. 


Normalement, lorsque 
l'on frappe sur une touche 
ou que l'on exécute 
PRINT, aucun caractère 
n'est affiché dans les deux 
premières colonnes de 
l'écran. Le caractère per- 
met d'utiliser ces colon- 
nes. Mais alors les textes 
sont blancs sur fond noir, 
car les caractères com- 
mandant la couleur de 
l'écran et du texte, qui se 
trouvent normalement 
dans ces deux colonnes, 
sont écrasés. Réutilisez 
CHR$(29) ou CTRL-] 
pour revenir comme 
avant. 


Effet de PLOT X, Y, 
CHRS (code) 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne X, 
sera cyan. 


Le fond (PAPER) de la ligne 
Y, à partir de la colonne Y, 
sera blanc. 


Passage en texte 60 Hz. Ne 
pas utiliser, perturbe l'affi- 
chage. 


Passage en texte 60 Hz. Ne 
pas utiliser. 


Passage en texte 50 Hz, 
rend l'affichage normal. 


Passage en texte 50 Hz, 
rend l'affichage normal. 


Passage en graphique 60 Hz. 
Ne pas utiliser, perturbe 
l'affichage. 


Passage en graphique 60 Hz. 
Ne pas utiliser, perturber 
l'affichage. 


Code 
ASCII 


Touche 


Effet de la touche ou 


Effet de PLOT, X, Y, 


de PRINT CHRS (code) CHRS (code) 


39 


31 


32 
33 
34 
35 
36 
37 
38 
39 
49 
a1 
42 
43 
44 
45 
46 
47 
48 
49 
59 
51 
52 
53 
54 
55 
56 


Pas de touche 


CTRL-DEL 


barre d'espacement 


Z R a *ÿ# 


© Oo où À © NN 


CHR$(30) renvoie le 
curseur dans le coin supé- | Affichage normal. 
rieur gauche de l'écran, 

qui n'est pas effacé. 


Aucun. 


Passage en graphique 50 Hz. 


Passage en graphique 50 Hz. 
Affichage normal. 


Affiche un espace, un blanc 


Affiche un ! 
Affiche un ” 
Affiche un # 
Affiche un $ 
Affiche un % 
Affiche un & 
Affiche un‘ 
Affiche un ( 
Affiche un ) 
Affiche un * 
Affiche un + 
Affiche un, 
Affiche un — 
Affiche un. 
Affiche un / 
Affiche un @ 
Affiche un 1 
Affiche un 2 
Affiche un 3 
Affiche un 4 
Affiche un 5 
Affiche un 6 
Affiche un 7 
Affiche un 8 


(guillemet) 
(dièse) 
(dollar) 


(apostrophe) 


(signe de multiplication) 


(signe de division, slash) 
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A 


ZOO nm Oo OA ww > @® + V I 


SES <crn 27 PvTvOZzZZzZrzrxe 


Affiche un 9 
Affiche un : 
Affiche un ; 
Affiche un < 
Affiche un = 
Affiche un > 
Affiche un ? 
Affiche un @ 
Affiche un A 
Affiche un B 
Affiche un C 
Affiche un D 
Affiche un E 
Affiche un F 
Affiche un G 
Affiche un H 
Affiche un | 
Affiche un J 
Affiche un K 
Affiche un L 
Affiche un M 
Affiche un N 
Affiche un O 
Affiche un P 
Affiche un Q 
Affiche un R 
Affiche un S 
Affiche un T 
Affiche un U 
Affiche un V 
Affiche un W 


Effet 


(colon) 


(semi-colon) 


Code 
ASCII 


Touche 


IOnmMmMOOwm >» m >— 7 — N < x 


C1 D7PTOZE<rTzrx.- 


Affiche un X 
Affiche un Y 
Affiche un Z 
Affiche un [ 
Affiche un \ 
Affiche un | 
Affiche un A 
Affiche un £ 
Affiche un (©) 
Affiche un a 
Affiche un b 
Affiche un c 
Affiche un d 
Affiche un e 
Affiche un f 
Affiche un g 
Affiche un h 
Affiche un i 
Affiche un) 
Affiche un k 
Affiche un | 
Affiche un m 
Affiche un n 
Affiche un o 
Affiche un p 
Affiche un q 
Affiche un r 
Affiche un s 
Affiche un t 


Affiche un u 


Effet 


(crochet ouvrant) 
(backslash) 


(crochet fermant) 


(livre) 


Pour obtenir les 


minuscules au clavier, 


frapper d'abord 
CTRL-T 
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Affiche un v 
Affiche un w 
Affiche un x 
Affiche un y 
Affiche un z 
Affiche un 
Affiche un | 
Affiche un 


—— — N < X S < 


pas de touche Affiche un carré clair 


DEL DEL annule un caractère 
CHR$(127) affiche un carré sombre. 


Les codes 128 à 255 provoquent les mêmes effets 
que les codes de @ à 127. Avec deux petites diffé- 
rences : 


— les codes 128 à 159 sont affichés, alors que les 
codes @ à 31 ne le sont pas. CHR$(128) a le 
effet que ESC , CHRS$(129) a le même effet que 
ESCA, …, etc. 


les caractères correspondant aux codes de 128 à 
255 sont affichés en vidéo inverse, lorsqu'on les 
utilise avec PLOT. 


LES MESSAGES D'ERREUR 


On peut obtenir des messages d’erreur en modes immédiat et 
programme. En mode programme, l’'ORIC-1 donne le numéro de la ligne 
ou l’erreur a été détectée. Les messages possibles sont : 


CAN'T CONTINUE : Vous avez exécuté un ordre CONT après avoir modifié 
au moins une ligne de programme. Cela n'est pas possible, vous 
devez utiliser RUN. 
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DISP TYPE MISMATCH: Vous avez exécuté un ordre qui ne correspond 
pas avec le mode de l'écran. Par exemple, exécuté CIRCLE en mode 
TEXT, ou PLOT en mode HIRES. 


DIVISION BY ZERO: Tant en mathématiques qu'en informatique, les 
divisions par zéro sont interdites. 


FORMULA TOO COMPLEX: Vous avez placé trois ou plus ordres IF … 
THEN sur une même ligne. Ceci est trop compliqué pour l'ORIC-1. 
Une ligne ne peut contenir plus de deux ordres IF … THEN. 


ILLEGAL DIRECT: Vous avez essayé d'exécuter DATA, INPUT ou DEF FN 
en mode immédiat. Ce n'est pas autorisé. 


ILLEGAL QUANTITY : L'argument d'une fonction a une valeur incompa- 
tible avec celle-ci. Par exemple un argument négatif avec SOR ou 
LOG, un argument supérieur à 65535 avec PEEK, etc. 


NEXT WITHOUT FOR: Deux causes possibles: Il n'y a pas le même 
nombre de FOR que de NEXT, ou bien les variables de contrôle des 
boucles ne se correspondent pas correctement deux à deux. 


OUT OF DATA: Vous avez exécuté plus de lectures avec READ qu'il n'y a 
d'éléments dans la liste DATA. 


OUT OF MEMORY: Plusieurs causes sont possibles : 


* Plus de place en mémoire pour un programme et ses variables 
(cela est peu probable). 


* Vous avez imbriqué trop de boucles FOR … NEXT, ou vous êtes 
sorti de ces boucles avec GOTO trop souvent. 


* Vous avez appelé trop de sous-programmes sans jamais exécuter 
de RETURN. 


OVERFLOW: Un résultat de calcul dépasse 1.70141 10% en valeur 
absolue. 


REDIM'D ARRAY: Vous avez essayé d'exécuter deux ordres DIM avec 
un même nom de tableau. Ceci est interdit. 


RETURN WITHOUT GOSUB: Vous avez exécuté plus d'ordres POP et 
RETURN que de GOSUB. 
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STRING TOO LONG: Vous avez essayé de former une chaîne de plus de 
255 caractères, c'est trop long. 


BAD SUBSCRIPT: ‘Mauvais indice”. Vous avez utilisé un indice de 
tableau négatif, ou dépassant la valeur maximale définie par DIM. 


SYNTAX ERROR: Il y a des fautes d'orthographe basic, mauvaises paren- 
thèses, points à la place de virgules, etc... 


TYPE MISMATCH: Vous avez essayé de mélanger abusivement des 
grandeurs chaînes et des grandeurs numériques par exemple: 
SOR (‘’ABCD”) ou LEN(PI) donnent ce message. 


UNDEF'D STATEMENT: Il y a dans le programme, un branchement 
(GOTO ou GOSUB) vers un numéro de ligne qui n'existe pas. 


UNDEF'D FUNCTION : Vous avez oublié de définir, par DEF USR ou DEF 
FN, la fonction que vous venez d'utiliser. 


REDO FROM START: Une instruction INPUT a été exécutée. L'ORIC-1 
attendait un nombre et vous avez tapé une chaîne. Dans ce cas, 
l'ORIC-1 annule tout et ré-exécute INPUT. 

BAD UNTIL: || manque un REPEAT. 


EXTRA IGNORED: Vous avez tapé plus de données qu'un ordre INPUT 
n'en demandait. Les dernières valeurs sont ignorées. 


PRINTER ERROR: Erreur avec l'imprimante. Est-elle 1°) branchée et 
2°) en marche ? 


TOO LARGE: Le programme est trop gros pour entrer dans la mémoire 
(attention à HIMEM). 
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Index alphabétique 


A 


ABS - 140 

addition - 7, 17, 139 

adresse - 148 

AND - 92, 94 

ASC - 101, 138 

ASCII - 79, 101, 103, 112, 128, 159 
assembleur - 155 

ATN - 140 

AUTO - 54 


barre - 6 

basic - 12, 44 

boucle - 30 

branchements - 27, 81 
branchement de l'ORIC-1 - 1, 51 


C 


CALL - 156 
caractère d'activation - 5 
caractère (redéfinition) - 98 


cassette - 51, 55 

chaîne - 92, 133 

chaîne vide - 134 

CHAR - 128, 138 

CHR$ - 102, 103 

CIRCLE - 127 

clavier - 4, 80 

CLEAR - 61, 66 

clignotement - 105, 106, 119, 121 
CLOAD - 53 

CLS - 47, 96 

commentaire - 50 
concaténation - 134 

CONT - 64, 66 

correction de programme - 45 
COS - 140 

couleur - 8, 96, 103, 109, 118, 119 
CSAVE - 52, 56 

CTRL - 114 

CTRL-A - 45, 48, 69 

CTRL-C - 11, 45, 65 

CTRL-L - 47, 48, 113 
CTRL-X - 46, 48 

CURMOV - 126 

CURSET - 125 

curseur - 3, 124 
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DATA - 75 

DEEK - 153 

DEF FN - 142 

DEF USR - 156 

DEL (touche) - 6, 47, 48, 69 
dessin - 10, 39, 117, 132 
DIM - 36, 59, 61 

division - 7, 17, 139 

DOKE - 153 

double hauteur - 105, 107, 119, 121 
DRAW - 126 


écran - 95, 97, 151, 152 
EDIT - 46 

édition de programme - 45 
ELSE - 91 

END - 63 

entrée/sortie - 67 

ESC - 118 

EXP - 140 

EXPLODE - 143 


F 
FALSE - 94 
FILL - 130 
flèche - 45, 48, 49, 69 
FN - 142 
FOR - 30, 35, 83, 85, 87 
FRE - 153 

G 
GET - 78 


GOSUB - 28, 34, 82 
GOTO - 27, 34, 81, 93 
GRAB - 154 
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hexadécimal - 148 
HEXS$ - 150 
HIMEM - 154 
HIRES - 40, 123 


IF - 31, 35, 90, 94 

indice - 35, 59, 61 

INK - 8, 96, 104, 113, 123 
INPUT - 23, 68 

INT - 140 

inverse vidéo - 111 


K 
KEY$ - 80 

L 
LEFTS$ - 135 
LEN - 134 
LET - 133 
LIST - 45 
LLIST - 50 
LN - 140 
LOG - 140 
LORES - 122, 123 
LPRINT - 75 

M 


magnétophone - 51 
mémoire - 56, 148, 151 
microprocesseur - 155 
MID$ - 136 

mode immédiat - 15, 38 
mode programme - 15, 38 
mot - 8, 19, 133, 136 
multiplication - 7, 17, 139 
MUSIC - 143, 146 
musique - 9, 143, 147 


N reset - 11 


RESTORE - 77 
NEXT - 30, 35, 84, 85, 87 RETURN - 28, 34, 82 
NEW - 45, 66 RETURN (touche) - 4, 38, 48 
nombre - 16, 91, 129, 138 RIGHTS - 135 
nombre aléatoire - 140 RND - 140 
NOT - 92, 94 RUN - 14, 63 
RVB - 2 
O 
octet - 148 S 
ON … GOSUB - 82 
ON … GOTO - 81 S - 54 
opération - 7, 17, 139 SCRN - 102 
OR - 92, 94 semi-graphique - 105, 108, 119 
ordre - 12 SGN - 141 
SHIFT - 6 
P SHOOT - 143 
SIN - 141 
PAPER - 8, 95, 110, 113, 123 SOUND - 143, 144, 146 
parenthèse - 18 soustraction - 7, 17, 139 
PATTERN - 127 SPC - 72 
PEEK - 152 SOR - 141 
Péritel - 2 STEP - 31, 85 
PI - 140 STOP - 64 
PING - 143 STR$ - 72, 98, 136 


PLAY - 143, 144, 146 
PLOT - 96, 98, 103, 117 


POINT - 129 T 
POKE - 101, 152 
POP - 82 TAB - 72 
POS - 96 tableau - 35, 59, 62, 93 
PRINT - 69, 95, 112, 116, 118 TAN - 141 
priorités - 18, 94 test - 91, 22, 93 
programme - 10, 13, 15 TEXT - 95, 123 
puissance - 17, 139 THEN - 31, 35, 90, 94 
PULL - 89 TROFF - 67 

TRON - 67, 83 

TRUE - 94 

R 

READ - 75, 76 u 
RELEASE - 154 
REM - 50 UNTIL - 88, 89 


REPEAT - 88, 89 USR - 156 
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V 


VAL - 137 
variable chaîne - 24, 26, 38, 59, 133 
variable numérique - 20, 25,57, 59 


W 


WAIT - 66 


ZAP - 143 
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Votre ORIC-1 est un micro-ordinateur qui a de grandes 
possibilités. Encore faut-il les connaître et savoir les exploiter : 


ILest frustrant d'avoir entre les mains un petit bolide et de 
ne pas savoir en passer les vitesses au-delà de la seconde ! 


«LA CONDUITE DE L'ORIC-1» va faire de vous un pilote 
-de compétition. 


Vous n'avez jamais touché un micro-ordinateur ni ne savez 
programmer ? Peu importe : 


Ce livre vous mènera de la mise en route de la machine à 
l'apprentissage de ce langage simple mais puissant, le BASIC, par 
de très nombreux exemples, à la fois démonstratifs et utiles, car 
vous pourrez les intégrer à vos propres programmes. 


Aucune difficulté, donc aucune possibilité, n’est passée sous 
silence. Tous les ordres de l'ORIC sont examinés et illustrés 
dans leur moindre détail. 


Un des principaux attraits de cette nouvelle génération de 
micro-ordinateurs étant le graphisme en couleur, agrémentant 
les courbes mathématiques ou la guerre des étoiles, accompagné 
de sonorités synthétiques, une place très importante est de plus 
accordée aux commandes graphiques et sonores de l'ORIC-1. 


Ecrit par un ingénieur spécialiste de micro-informatique, qui 
a lui-même fait le tour des capacités de ORIC-1, avant de vous 
livrer son expérience, «LA CONDUITE DE L'ORIC-1» sera 
pour vous un compagnon indispensable. 
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